diff options
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 90e6aec4e75..ca46f317677 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -547,7 +547,9 @@ Don't try to split prefixes that are already longer than that.") | |||
| 547 | ;; "cc-helper" and "c-mode", you'll get "c" in the root prefixes. | 547 | ;; "cc-helper" and "c-mode", you'll get "c" in the root prefixes. |
| 548 | (dolist (pair (prog1 prefixes (setq prefixes nil))) | 548 | (dolist (pair (prog1 prefixes (setq prefixes nil))) |
| 549 | (let ((s (car pair))) | 549 | (let ((s (car pair))) |
| 550 | (if (or (> (length s) 2) ;Long enough! | 550 | (if (or (and (> (length s) 2) ; Long enough! |
| 551 | ;; But don't use "def" from deffoo-pkg-thing. | ||
| 552 | (not (string= "def" s))) | ||
| 551 | (string-match ".[[:punct:]]\\'" s) ;A real (tho short) prefix? | 553 | (string-match ".[[:punct:]]\\'" s) ;A real (tho short) prefix? |
| 552 | (radix-tree-lookup (cdr pair) "")) ;Nothing to expand! | 554 | (radix-tree-lookup (cdr pair) "")) ;Nothing to expand! |
| 553 | (push pair prefixes) ;Keep it as is. | 555 | (push pair prefixes) ;Keep it as is. |