From: Eshel Yaron <me@eshelyaron.com>
Date: Mon, 2 Sep 2024 10:42:51 +0000 (+0200)
Subject: ; (el-create-index): Cease indexing functions twice.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a5cbc2161ec7671ee927691d4af30cd975fb9d3;p=emacs.git

; (el-create-index): Cease indexing functions twice.
---

diff --git a/lisp/progmodes/el.el b/lisp/progmodes/el.el
index c39cd87dc77..1419d73342e 100644
--- a/lisp/progmodes/el.el
+++ b/lisp/progmodes/el.el
@@ -242,17 +242,13 @@ This is the `font-lock-fontify-region-function' for `emacs-lisp-mode'."
                    (cl-case type
                      (defun (push (cons (buffer-substring-no-properties beg (+ beg len))
                                         beg)
-                                  index))
+                                  (alist-get "Function" index nil nil #'string=)))
                      (defvar (push (cons (buffer-substring-no-properties beg (+ beg len))
                                          beg)
                                    (alist-get "Var" index nil nil #'string=)))
                      (defface (push (cons (buffer-substring-no-properties beg (+ beg len))
                                           beg)
-                                    (alist-get "Face" index nil nil #'string=))))
-                   (when (eq type 'defun)
-                     (push (cons (buffer-substring-no-properties beg (+ beg len))
-                                 beg)
-                           index)))))
+                                    (alist-get "Face" index nil nil #'string=)))))))
       (end-of-file (nreverse index)))))
 
 (defvar-keymap el-mode-map