From 7a5cbc2161ec7671ee927691d4af30cd975fb9d3 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Mon, 2 Sep 2024 12:42:51 +0200 Subject: [PATCH] ; (el-create-index): Cease indexing functions twice. --- lisp/progmodes/el.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) 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 -- 2.39.5