aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoão Távora2019-12-23 12:03:13 +0100
committerJoão Távora2019-12-23 12:03:13 +0100
commitc7e6b62d9e2f56bad176d391238e5d0ec7c28ade (patch)
tree450e9766d4681a5f2621d22247e8a912ea9e400b
parent1e758530b06befc6feb44031b9f84734e2165e2e (diff)
downloademacs-c7e6b62d9e2f56bad176d391238e5d0ec7c28ade.tar.gz
emacs-c7e6b62d9e2f56bad176d391238e5d0ec7c28ade.zip
Fix a bug in completion--flex-adjust-metadata
If minibuffer-default coincided with the first of completions, the empty list would be returned. * lisp/minibuffer.el (completion--flex-adjust-metadata): Make sure to never return empty list.
-rw-r--r--lisp/minibuffer.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 2dba26818e1..6011a493d0b 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -3612,7 +3612,8 @@ that is non-nil."
3612 for comp = (cadr l) 3612 for comp = (cadr l)
3613 when (string-prefix-p minibuffer-default comp) 3613 when (string-prefix-p minibuffer-default comp)
3614 do (setf (cdr l) (cddr l)) 3614 do (setf (cdr l) (cddr l))
3615 and return (cons comp pre-sorted))) 3615 and return (cons comp pre-sorted)
3616 finally return pre-sorted))
3616 (t 3617 (t
3617 pre-sorted)))))) 3618 pre-sorted))))))
3618 `(metadata 3619 `(metadata