mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Don't register "def" as an autoload prefix (Bug#26412)

Browse source 
* lisp/emacs-lisp/autoload.el (autoload--make-defs-autoload): Don't
accept "def" as a prefix.
This commit is contained in:
Noam Postavsky 2017-04-19 23:01:43 -04:00
parent cd56490fef
commit 4364a769b4
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/autoload.el
View file

@ -547,7 +547,9 @@ Don't try to split prefixes that are already longer than that.")
;; "cc-helper" and "c-mode", you'll get "c" in the root prefixes. ;; "cc-helper" and "c-mode", you'll get "c" in the root prefixes.
(dolist (pair (prog1 prefixes (setq prefixes nil))) (dolist (pair (prog1 prefixes (setq prefixes nil)))
(let ((s (car pair))) (let ((s (car pair)))
(if (or (> (length s) 2) ;Long enough! (if (or (and (> (length s) 2) ; Long enough!
;; But don't use "def" from deffoo-pkg-thing.
(not (string= "def" s)))
(string-match ".[[:punct:]]\\'" s) ;A real (tho short) prefix? (string-match ".[[:punct:]]\\'" s) ;A real (tho short) prefix?
(radix-tree-lookup (cdr pair) "")) ;Nothing to expand! (radix-tree-lookup (cdr pair) "")) ;Nothing to expand!
(push pair prefixes) ;Keep it as is. (push pair prefixes) ;Keep it as is.