From 9c44569ea2a18099307e0571d523d8637000a153 Mon Sep 17 00:00:00 2001 From: Roland Winkler Date: Sun, 17 Mar 2013 05:33:57 -0500 Subject: [PATCH] completing-read-multiple: Ignore empty strings in the list of return values --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/crm.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c0de85ccf8..1f9724e17fd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-03-17 Roland Winkler + + * emacs-lisp/crm.el (completing-read-multiple): Ignore empty + strings in the list of return values. + 2013-03-17 Jay Belanger * calc/calc-ext.el (math-read-number-fancy): Check for an explicit diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el index f88cb0ef9bb..e1e1847dd59 100644 --- a/lisp/emacs-lisp/crm.el +++ b/lisp/emacs-lisp/crm.el @@ -287,7 +287,8 @@ INHERIT-INPUT-METHOD." prompt initial-input map nil hist def inherit-input-method))) (and def (string-equal input "") (setq input def)) - (split-string input crm-separator))) + ;; Ignore empty strings in the list of return values. + (split-string input crm-separator t))) (remove-hook 'choose-completion-string-functions 'crm--choose-completion-string))) -- 2.39.2