masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-06 04:09: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))) :type '(repeat (list symbol sexp sexp)))
(when use-package-enable-imenu-support (when use-package-enable-imenu-support
;; Not defined in Emacs 24 (eval-after-load 'lisp-mode
(defvar lisp-mode-symbol-regexp `(let ((sym-regexp (or (bound-and-true-p lisp-mode-symbol-regexp)
"\\(?:\\sw\\|\\s_\\|\\\\.\\)+") "\\(?:\\sw\\|\\s_\\|\\\\.\\)+")))
(add-to-list (add-to-list
'lisp-imenu-generic-expression 'lisp-imenu-generic-expression
(list "Package" (list "Packages"
(purecopy (concat "^\\s-*(" (concat "^\\s-*("
(eval-when-compile ,(eval-when-compile
(regexp-opt (regexp-opt '("use-package" "require") t))
'("use-package" "require") "\\s-+\\(" sym-regexp "\\)")
t)) 2)))))
"\\s-+\\(" lisp-mode-symbol-regexp "\\)"))
2)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;