diff options
Diffstat (limited to 'lisp/emacs-lisp/crm.el')
| -rw-r--r-- | lisp/emacs-lisp/crm.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el index cfae02817f4..14646a2ab11 100644 --- a/lisp/emacs-lisp/crm.el +++ b/lisp/emacs-lisp/crm.el @@ -222,7 +222,7 @@ exiting the minibuffer." t)) ;; superemulates behavior of completing_read in src/minibuf.c -;; Use \\<crm-local-completion-map> so that help-enable-auto-load can +;; Use \\<crm-local-completion-map> so that help-enable-autoload can ;; do its thing. Any keymap that is defined will do. ;;;###autoload (defun completing-read-multiple @@ -263,7 +263,8 @@ with empty strings removed." (input (read-from-minibuffer prompt initial-input map nil hist def inherit-input-method))) - (and def (string-equal input "") (setq input def)) + (when (and def (string-equal input "")) + (setq input (if (consp def) (car def) def))) ;; Remove empty strings in the list of read strings. (split-string input crm-separator t))) (remove-hook 'choose-completion-string-functions |