Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Set marker insertion type for Imenu markers

Browse source 
* lisp/imenu.el (imenu-default-create-index-function)
(imenu--generic-function): Configure Imenu markers to advance
their position when characters are inserted at the marker
position.  (Bug#75072)
This commit is contained in:
Morgan Willcock 2024-12-25 09:47:42 +00:00 committed by Eli Zaretskii
parent 6412a5503c
commit dc4b8d198b
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/imenu.el
View file

@ -583,7 +583,9 @@ The alternate method, which is the one most often used, is to call
(and (stringp name)
;; [ydi] Updated for imenu-use-markers.
(push (cons name
(if imenu-use-markers (point-marker) (point)))
(if imenu-use-markers
(copy-marker (point) t)
(point)))
index-alist)))
index-alist))
;; Use generic expression if possible.
@ -688,7 +690,7 @@ depending on PATTERNS."
(unless (assoc menu-title index-alist)
(push (list menu-title) index-alist))
(if imenu-use-markers
(setq beg (copy-marker beg)))
(setq beg (copy-marker beg t)))
(let ((item
(if function
(nconc (list (match-string-no-properties index)