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

diff --git a/lisp/progmodes/el.el b/lisp/progmodes/el.el
index c39cd87dc77a18c3e8b5e4a09c502492b45a68d7..1419d73342ed1b631ead4bc5ca4fce0cfc3600dc 100644 (file)
--- 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