masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 19:29:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request from justbur/imenu3

Browse source 
Improve imenu support
GitHub-reference: https://github.com/jwiegley/use-package/issues/356
This commit is contained in:
John Wiegley 2017-02-13 16:44:04 -05:00 • committed by GitHub
commit c287aa3085
1 changed files with 11 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/use-package/use-package.el
View file

@ -207,19 +207,17 @@ value is not assigned even if the keyword is not present in the
:type '(repeat (list symbol sexp sexp)))
(when use-package-enable-imenu-support
;; Not defined in Emacs 24
(defvar lisp-mode-symbol-regexp
"\\(?:\\sw\\|\\s_\\|\\\\.\\)+")
(add-to-list
'lisp-imenu-generic-expression
(list "Package"
(purecopy (concat "^\\s-*("
(eval-when-compile
(regexp-opt
'("use-package" "require")
t))
"\\s-+\\(" lisp-mode-symbol-regexp "\\)"))
2)))
(eval-after-load 'lisp-mode
`(let ((sym-regexp (or (bound-and-true-p lisp-mode-symbol-regexp)
"\\(?:\\sw\\|\\s_\\|\\\\.\\)+")))
(add-to-list
'lisp-imenu-generic-expression
(list "Packages"
(concat "^\\s-*("
,(eval-when-compile
(regexp-opt '("use-package" "require") t))
"\\s-+\\(" sym-regexp "\\)")
2)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;