From a81290727b0f5b52029ee3a5a87cd4e95aee350a Mon Sep 17 00:00:00 2001
From: John Sullivan <john@wjsullivan.net>
Date: Sun, 15 Feb 2009 03:19:26 -0500
Subject: [PATCH] Fix issue with planner-multi breaking completion for other
 Emacs functions. Closes #11953.

---
 ChangeLog        |  6 ++++++
 planner-multi.el | 40 ++++++++++++++++++++--------------------
 2 files changed, 26 insertions(+), 20 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 11082e7..7dc9c17 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2009-02-15  John Sullivan  <john@wjsullivan.net>
+
+	* planner-multi.el (planner-multi-read-name): Using SPC as the
+	planner-multi-separator no longer breaks SPC completion for other
+	Emacs functions. Closes #11953.
+
 2009-02-14  John Sullivan  <john@wjsullivan.net>
 
 	* planner.el, planner-deadline.el, planner-notes-index.el,
diff --git a/planner-multi.el b/planner-multi.el
index 64ce240..f308e30 100644
--- a/planner-multi.el
+++ b/planner-multi.el
@@ -774,31 +774,31 @@ If PROMPT is specified, use that instead of \"Page:\"."
 	  (plist-put
 	   (copy-sequence minibuffer-prompt-properties)
 	   'read-only nil))
-	 (map (copy-keymap minibuffer-local-completion-map))
          (completion-ignore-case t)
          (crm-separator (regexp-quote planner-multi-separator))
+	 (map (make-sparse-keymap))
+         (minibuffer-local-completion-map
+	  (progn
+	    (set-keymap-parent map minibuffer-local-completion-map)
+	    (define-key map planner-multi-separator 'self-insert-command)
+	    map))
          (prompt (format "%s(default: %s) "
 			 (or prompt "Page: ") planner-default-page))
          str)
-    (unwind-protect
-        (progn
-          (define-key minibuffer-local-completion-map
-	    planner-multi-separator 'self-insert-command)
-          (setq str
-                (if (fboundp 'completing-read-multiple)
-                    (completing-read-multiple
-                     prompt file-alist nil nil initial
-                     'planner-history-list
-                     planner-default-page)
-                  (planner-multi-split
-                   (read-string prompt initial 'planner-history-list
-				planner-default-page))))
-          (cond
-           ((or (null str)
-                (string= (car str) "")) planner-default-page)
-           ((string= (car str) "nil") nil)
-           (t (mapconcat 'identity str planner-multi-separator))))
-      (setq minibuffer-local-completion-map map))))
+    (setq str
+          (if (fboundp 'completing-read-multiple)
+              (completing-read-multiple
+               prompt file-alist nil nil initial
+               'planner-history-list
+               planner-default-page)
+	    (planner-multi-split
+	     (read-string prompt initial 'planner-history-list
+			  planner-default-page))))
+    (cond
+     ((or (null str)
+          (string= (car str) "")) planner-default-page)
+     ((string= (car str) "nil") nil)
+     (t (mapconcat 'identity str planner-multi-separator)))))
 
 (defun planner-multi-read-name-multiple-prompts (file-alist prompt initial)
   "Read multiple pages, completing based on FILE-ALIST.
-- 
2.11.4.GIT