diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-10-02 12:37:04 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-10-02 12:37:04 -0400 |
| commit | 3eedabaef37ecbcf30144ab9efa2441bbfc950e0 (patch) | |
| tree | 0c54c7106cb16e815659715974c418a7ae66587f /lisp/emacs-lisp/autoload.el | |
| parent | 0f505bbef6bc70d16899a24512e8eeb8eab505b4 (diff) | |
| download | emacs-3eedabaef37ecbcf30144ab9efa2441bbfc950e0.tar.gz emacs-3eedabaef37ecbcf30144ab9efa2441bbfc950e0.tar.bz2 emacs-3eedabaef37ecbcf30144ab9efa2441bbfc950e0.zip | |
* lisp/emacs-lisp/autoload.el (autoload-ignored-definitions): New var
(autoload-generate-file-autoloads): Use it.
Diffstat (limited to 'lisp/emacs-lisp/autoload.el')
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 26 |
1 files changed, 16 insertions, 10 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 3d733519111..c9ee532ac82 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -660,6 +660,21 @@ Don't try to split prefixes that are already longer than that.") (defvar autoload-builtin-package-versions nil) +(defvar autoload-ignored-definitions + '("define-obsolete-function-alias" + "define-obsolete-variable-alias" + "define-category" "define-key" + "defgroup" "defface" "defadvice" + "def-edebug-spec" + ;; Hmm... this is getting ugly: + "define-widget" + "define-erc-module" + "define-erc-response-handler" + "defun-rcirc-command") + "List of strings naming definitions to ignore for prefixes. +More specifically those definitions will not be considered for the +`register-definition-prefixes' call.") + ;; When called from `generate-file-autoloads' we should ignore ;; `generated-autoload-file' altogether. When called from ;; `update-file-autoloads' we don't know `outbuf'. And when called from @@ -758,16 +773,7 @@ FILE's modification time." (looking-at "(\\(def[^ ]+\\) ['(]*\\([^' ()\"\n]+\\)[\n \t]") (not (member (match-string 1) - '("define-obsolete-function-alias" - "define-obsolete-variable-alias" - "define-category" "define-key" - "defgroup" "defface" "defadvice" - "def-edebug-spec" - ;; Hmm... this is getting ugly: - "define-widget" - "define-erc-module" - "define-erc-response-handler" - "defun-rcirc-command")))) + autoload-ignored-definitions))) (push (match-string-no-properties 2) defs)) (forward-sexp 1) (forward-line 1))))))) |