[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 3eedaba: * lisp/emacs-lisp/autoload.el (autoload-ig
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 3eedaba: * lisp/emacs-lisp/autoload.el (autoload-ignored-definitions): New var |
Date: |
Tue, 2 Oct 2018 12:37:11 -0400 (EDT) |
branch: master
commit 3eedabaef37ecbcf30144ab9efa2441bbfc950e0
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/emacs-lisp/autoload.el (autoload-ignored-definitions): New var
(autoload-generate-file-autoloads): Use it.
---
lisp/emacs-lisp/autoload.el | 26 ++++++++++++++++----------
1 file changed, 16 insertions(+), 10 deletions(-)
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 3d73351..c9ee532 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)))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 3eedaba: * lisp/emacs-lisp/autoload.el (autoload-ignored-definitions): New var,
Stefan Monnier <=