From 632847e07c9dbe4ef2d1defd332254f1298ea912 Mon Sep 17 00:00:00 2001 From: Stephen Leake Date: Thu, 1 Oct 2015 09:14:23 -0500 Subject: [PATCH] Set default base-size in minibuffer-completion-help * lisp/minibuffer.el (minibuffer-completion-help): Set default base-size, in case completion table does not set it. --- lisp/minibuffer.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 689911c405a..2814d020b8d 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -1374,7 +1374,7 @@ appear to be a match." ;; that file. (= (length string) (length compl))) (completion--replace beg end compl)))) - (funcall exit-function)) + (funcall exit-function)) ((memq minibuffer-completion-confirm '(confirm confirm-after-completion)) ;; The user is permitted to exit with an input that's rejected @@ -1391,7 +1391,7 @@ appear to be a match." (t ;; Call do-completion, but ignore errors. - (funcall completion-function)))) + (funcall completion-function)))) (defun completion--try-word-completion (string table predicate point md) (let ((comp (completion-try-completion string table predicate point md))) @@ -1794,7 +1794,7 @@ variables.") (if completions "Sole completion" "No completions"))) (let* ((last (last completions)) - (base-size (cdr last)) + (base-size (or (cdr last) 0)) (prefix (unless (zerop base-size) (substring string 0 base-size))) (all-md (completion--metadata (buffer-substring-no-properties start (point)) -- 2.39.2