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)
This commit is contained in:
parent
50730a8b04
commit
ea6c2e9295
1 changed files with 2 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue