diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-15 16:02:20 -0700 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-08-15 16:02:20 -0700 |
| commit | b3713265cbb8eb591ac832ae4c35bf8185544467 (patch) | |
| tree | b614a8f9bb8322bbcf17a4ba5182ed228090fb62 /lisp/help-fns.el | |
| parent | 7aefbe86f22a1c0b7d329c1931d0297f801e1f83 (diff) | |
| download | emacs-b3713265cbb8eb591ac832ae4c35bf8185544467.tar.gz emacs-b3713265cbb8eb591ac832ae4c35bf8185544467.tar.bz2 emacs-b3713265cbb8eb591ac832ae4c35bf8185544467.zip | |
Rename variables and functions with "auto-load" in their names
* doc/emacs/building.texi (Lisp Libraries): Adjust documentation.
* lisp/help-fns.el (help--symbol-completion-table): Adjust usage.
* lisp/help-fns.el (help-enable-completion-autoload): Change name
from auto-load and declare an obsolete alias (bug#13418).
* lisp/help.el (help-enable-autoload): Ditto.
* lisp/progmodes/vhdl-mode.el: Ditto.
(vhdl-create-mode-menu, vhdl-mode): Adjust usage.
(vhdl-autoload-project): Rename from auto-load and declare an
obsolete alias.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 0b5c547d6b0..7c059c25b79 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -104,7 +104,11 @@ and the output should go to `standard-output'.") (with-demoted-errors "while loading: %S" (load file 'noerror 'nomessage)))))) -(defcustom help-enable-completion-auto-load t + +(define-obsolete-variable-alias 'help-enable-completion-auto-load + 'help-enable-completion-autoload "27.1") + +(defcustom help-enable-completion-autoload t "Whether completion for Help commands can perform autoloading. If non-nil, whenever invoking completion for `describe-function' or `describe-variable' load files that might contain definitions @@ -115,11 +119,11 @@ with the current prefix. The files are chosen according to :version "26.3") (defun help--symbol-completion-table (string pred action) - (when help-enable-completion-auto-load + (when help-enable-completion-autoload (let ((prefixes (radix-tree-prefixes (help-definition-prefixes) string))) (help--load-prefixes prefixes))) (let ((prefix-completions - (and help-enable-completion-auto-load + (and help-enable-completion-autoload (mapcar #'intern (all-completions string definition-prefixes))))) (complete-with-action action obarray string (if pred (lambda (sym) @@ -799,7 +803,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)." ;; If the function is autoloaded, and its docstring has ;; key substitution constructs, load the library. (and (autoloadp real-def) doc-raw - help-enable-auto-load + help-enable-autoload (string-match "\\([^\\]=\\|[^=]\\|\\`\\)\\\\[[{<]" doc-raw) (autoload-do-load real-def)) |