completing-read-multiple: Ignore empty strings in the list of return values

2 files changed, 7 insertions, 1 deletions

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  <winkler@gnu.org>
+
+        * emacs-lisp/crm.el (completing-read-multiple): Ignore empty
+        strings in the list of return values.
+
 2013-03-17  Jay Belanger  <jay.p.belanger@gmail.com>
 
         * 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)))