diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-04-21 12:14:59 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-04-21 12:14:59 -0400 |
| commit | a3b8618d79657af0d7fea9cb6fd914ccf0f67849 (patch) | |
| tree | f347c4bc02e7a5918e7b763b932c03d63af4e5b9 /lisp/emacs-lisp | |
| parent | 89898e43c7ceef28bb3c2116b4d8a3ec96d9c8da (diff) | |
| download | emacs-a3b8618d79657af0d7fea9cb6fd914ccf0f67849.tar.gz emacs-a3b8618d79657af0d7fea9cb6fd914ccf0f67849.tar.bz2 emacs-a3b8618d79657af0d7fea9cb6fd914ccf0f67849.zip | |
Improve prefix handling for dash.el
* lisp/emacs-lisp/autoload.el (autoload--make-defs-autoload):
Don't drop dash's "-<letter>" prefixes.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index ca46f317677..4d0554e6101 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -598,7 +598,8 @@ Don't try to split prefixes that are already longer than that.") (lambda (x) (let ((prefix (car x))) (if (or (> (length prefix) 2) ;Long enough! - (string-match ".[[:punct:]]\\'" prefix)) + (and (eq (length prefix) 2) + (string-match "[[:punct:]]" prefix))) prefix ;; Some packages really don't follow the rules. ;; Drop the most egregious cases such as the |