; (minibuffer-narrow-buffer-completions): Be more cautious.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index d99905c36279d8ab8b0935e72c900df10e6ee167..14e0d2770b7e6d7e147e85768879fe7160c13b8f 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -3995,7 +3995,7 @@ See `read-file-name' for the meaning of the arguments."
                        (- (point) beg)
                        (completion--field-metadata beg)))
                  (last (last all)))
-            (setcdr last nil)
+            (when (consp last) (setcdr last nil))
             all))
          (modes (delete-dups
                  (mapcar