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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6c0de85ccf8b33c9336c9cc1bec54ad2ab72667a..1f9724e17fd470bb54094b67d9c25921c22a472b 100644 (file)
--- 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 f88cb0ef9bb28ade271a2398715f8989e6212671..e1e1847dd59dc15133e862f46b226e51767b0ecd 100644 (file)
--- 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)))