diff options
| -rw-r--r-- | lisp/emacs-lisp/crm.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el index 5aa856f467c..3ec0bd81cf4 100644 --- a/lisp/emacs-lisp/crm.el +++ b/lisp/emacs-lisp/crm.el | |||
| @@ -263,7 +263,8 @@ with empty strings removed." | |||
| 263 | (input (read-from-minibuffer | 263 | (input (read-from-minibuffer |
| 264 | prompt initial-input map | 264 | prompt initial-input map |
| 265 | nil hist def inherit-input-method))) | 265 | nil hist def inherit-input-method))) |
| 266 | (and def (string-equal input "") (setq input def)) | 266 | (when (and def (string-equal input "")) |
| 267 | (setq input (if (consp def) (car def) def))) | ||
| 267 | ;; Remove empty strings in the list of read strings. | 268 | ;; Remove empty strings in the list of read strings. |
| 268 | (split-string input crm-separator t))) | 269 | (split-string input crm-separator t))) |
| 269 | (remove-hook 'choose-completion-string-functions | 270 | (remove-hook 'choose-completion-string-functions |