From 1228a90c69b51c6e9084385552ff991e6915b175 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Mon, 20 May 2019 00:37:13 +0100 Subject: ; Fix mm-destroy-parts docstring typo * lisp/gnus/mm-decode.el (mm-destroy-parts): Fix typo in docstring copy-pasted from mm-remove-parts. --- lisp/gnus/mm-decode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 21552abae73..33cb797bf69 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1117,7 +1117,7 @@ external if displayed external." (mm-remove-part handle))))))) (defun mm-destroy-parts (handles) - "Remove the displayed MIME parts represented by HANDLES." + "Destroy the displayed MIME parts represented by HANDLES." (if (and (listp handles) (bufferp (car handles))) (mm-destroy-part handles) -- cgit v1.2.1 From eadf044e0663703af61967c1ff890043f46c9a15 Mon Sep 17 00:00:00 2001 From: Mauro Aranda Date: Fri, 17 May 2019 10:00:01 -0300 Subject: Remove repeated function call in picture.el * lisp/textmodes/picture.el (picture-mode-map): Remove repeated define-key call. (Bug#35772) --- lisp/textmodes/picture.el | 1 - 1 file changed, 1 deletion(-) (limited to 'lisp') diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index f0e30135f16..aed531e7694 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -622,7 +622,6 @@ Leaves the region surrounding the rectangle." (defvar picture-mode-map (let ((map (make-keymap))) - (define-key map [remap self-insert-command] 'picture-self-insert) (define-key map [remap self-insert-command] 'picture-self-insert) (define-key map [remap completion-separator-self-insert-command] 'picture-self-insert) -- cgit v1.2.1 From 400907b3c1d94359dda38ad5f416829567d6e478 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Wed, 15 May 2019 20:29:38 -0400 Subject: Add option to disable help completion autoloading (Bug#28607) * lisp/help-fns.el (help-enable-completion-auto-load): New option. (help--symbol-completion-table): Consult it. * doc/emacs/building.texi (Lisp Libraries): Document it. * etc/NEWS: Announce it. * doc/lispref/loading.texi (Autoload by Prefix): New section. (Autoload): Reference it. --- lisp/help-fns.el | 18 +++++++++++++++--- 1 file changed, 15 insertions(+), 3 deletions(-) (limited to 'lisp') diff --git a/lisp/help-fns.el b/lisp/help-fns.el index a7812e3b4b5..8684a853af2 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -89,11 +89,23 @@ The functions will receive the function name as argument.") (unless (help--loaded-p file) (load file 'noerror 'nomessage))))) +(defcustom help-enable-completion-auto-load 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 +with the current prefix. The files are chosen according to +`definition-prefixes'." + :type 'boolean + :group 'help + :version "26.3") + (defun help--symbol-completion-table (string pred action) - (let ((prefixes (radix-tree-prefixes (help-definition-prefixes) string))) - (help--load-prefixes prefixes)) + (when help-enable-completion-auto-load + (let ((prefixes (radix-tree-prefixes (help-definition-prefixes) string))) + (help--load-prefixes prefixes))) (let ((prefix-completions - (mapcar #'intern (all-completions string definition-prefixes)))) + (and help-enable-completion-auto-load + (mapcar #'intern (all-completions string definition-prefixes))))) (complete-with-action action obarray string (if pred (lambda (sym) (or (funcall pred sym) -- cgit v1.2.1