diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-08-05 20:17:23 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-08-05 20:17:23 +0200 |
commit | ea6c2e92958a10c7fd6b250f40fec66ac54a59ff (patch) | |
tree | 49bd320bf04a4c8f01c70eba96c743bb1c8ba2b2 /lisp/emacs-lisp | |
parent | 50730a8b04ede381c958600a1400efe8d04d9dfc (diff) | |
download | emacs-ea6c2e92958a10c7fd6b250f40fec66ac54a59ff.tar.gz emacs-ea6c2e92958a10c7fd6b250f40fec66ac54a59ff.tar.bz2 emacs-ea6c2e92958a10c7fd6b250f40fec66ac54a59ff.zip |
Allow newline after def*-form for definition-prefix
* lisp/emacs-lisp/loaddefs-gen.el (autoload-ignored-definitions):
Add another semantic function.
(loaddefs-generate--compute-prefixes): Allow newline after the "(def*"
form. (Bug#57000)
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/loaddefs-gen.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el index afba9f8fbc7..8aa17be765e 100644 --- a/lisp/emacs-lisp/loaddefs-gen.el +++ b/lisp/emacs-lisp/loaddefs-gen.el @@ -68,6 +68,7 @@ be included.") "define-short-documentation-group" "def-edebug-elem-spec" "defvar-mode-local" + "defcustom-mode-local-semantic-dependency-system-include-path" "define-ibuffer-column" "define-ibuffer-sorter") "List of strings naming definitions to ignore for prefixes. @@ -456,7 +457,7 @@ don't include." (let ((prefs nil)) ;; Avoid (defvar <foo>) by requiring a trailing space. (while (re-search-forward - "^(\\(def[^ \t]+\\)[ \t]+['(]*\\([^' ()\"\n]+\\)[\n \t]" nil t) + "^(\\(def[^ \t\n]+\\)[ \t\n]+['(]*\\([^' ()\"\n]+\\)[\n \t]" nil t) (unless (member (match-string 1) autoload-ignored-definitions) (let ((name (match-string-no-properties 2))) (when (save-excursion |