[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/consult a294f16263: Support more types in consult-imenu
From: |
ELPA Syncer |
Subject: |
[elpa] externals/consult a294f16263: Support more types in consult-imenu--normalize |
Date: |
Wed, 13 Sep 2023 06:57:31 -0400 (EDT) |
branch: externals/consult
commit a294f162632767e8950ec9758b123c29b46c03af
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Support more types in consult-imenu--normalize
---
consult-imenu.el | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/consult-imenu.el b/consult-imenu.el
index d1b073b930..d127931026 100644
--- a/consult-imenu.el
+++ b/consult-imenu.el
@@ -64,17 +64,14 @@ ARGS are the arguments to the special item function."
(defun consult-imenu--normalize (pos)
"Return normalized imenu POS."
(pcase pos
- ;; Simple marker item
- ((pred markerp) nil)
- ;; Simple integer item
+ ;; Create marker from integer item
((pred integerp) (setq pos (copy-marker pos)))
;; Semantic uses overlay for positions
((pred overlayp) (setq pos (copy-marker (overlay-start pos))))
;; Wrap special item
(`(,pos ,fn . ,args)
(setq pos `(,pos ,#'consult-imenu--switch-buffer ,(current-buffer)
- ,fn ,@args)))
- (_ (error "Unknown imenu item: %S" pos)))
+ ,fn ,@args))))
(if (or (consp pos)
(eq imenu-default-goto-function #'imenu-default-goto-function))
pos
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/consult a294f16263: Support more types in consult-imenu--normalize,
ELPA Syncer <=