diff options
| author | Stefan Kangas <stefan@marxist.se> | 2022-08-04 22:58:59 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2022-08-04 23:21:03 +0200 |
| commit | d73a104dd349fdf8de5ababa9ae53ea807b00bfb (patch) | |
| tree | 8bc17466e8bae2b1219cfc62b7e2fa1e6d7e8251 /lisp/emacs-lisp | |
| parent | 0b5dccc8b2f36d6d012cf792113de4a3b7b15334 (diff) | |
| download | emacs-d73a104dd349fdf8de5ababa9ae53ea807b00bfb.tar.gz emacs-d73a104dd349fdf8de5ababa9ae53ea807b00bfb.tar.bz2 emacs-d73a104dd349fdf8de5ababa9ae53ea807b00bfb.zip | |
Be more lax when picking up prefixes for loaddefs
* lisp/emacs-lisp/loaddefs-gen.el
(loaddefs-generate--compute-prefixes): Allow tabs and spaces before
symbol name, so that "(defvar\tfoo-bar nil)" is properly picked up.
Before this change, such a definition would be wrongly picked up as
the symbol "nil".
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/loaddefs-gen.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el index 52ec5ef6809..afba9f8fbc7 100644 --- a/lisp/emacs-lisp/loaddefs-gen.el +++ b/lisp/emacs-lisp/loaddefs-gen.el @@ -456,7 +456,7 @@ don't include." (let ((prefs nil)) ;; Avoid (defvar <foo>) by requiring a trailing space. (while (re-search-forward - "^(\\(def[^ ]+\\) ['(]*\\([^' ()\"\n]+\\)[\n \t]" nil t) + "^(\\(def[^ \t]+\\)[ \t]+['(]*\\([^' ()\"\n]+\\)[\n \t]" nil t) (unless (member (match-string 1) autoload-ignored-definitions) (let ((name (match-string-no-properties 2))) (when (save-excursion |