# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1155488712 0
# Node ID 2ce9bf47e864a8adfe7d2533c1f51ff76a5da67d
# Parent  20f7a2b0507b1a808a86b1917f8e00cf39dc35c5
* cus-theme.el (customize-create-theme)
(custom-theme-visit-theme): End `y-or-n-p' prompt with a space.

* filesets.el (filesets-add-buffer): Ditto.

* pcvs.el (cvs-change-cvsroot): Ditto.

diff -r 20f7a2b0507b -r 2ce9bf47e864 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Aug 13 17:04:56 2006 +0000
+++ b/lisp/ChangeLog	Sun Aug 13 17:05:12 2006 +0000
@@ -1,3 +1,12 @@
+2006-08-13  Romain Francoise  <romain@orebokech.com>
+
+	* cus-theme.el (customize-create-theme)
+	(custom-theme-visit-theme): End `y-or-n-p' prompt with a space.
+
+	* filesets.el (filesets-add-buffer): Ditto.
+
+	* pcvs.el (cvs-change-cvsroot): Ditto.
+
 2006-08-13  Nick Roberts  <nickrob@snap.net.nz>
 
 	* progmodes/gdb-ui.el (gdb-frame-separate-io-buffer)
diff -r 20f7a2b0507b -r 2ce9bf47e864 lisp/cus-theme.el
--- a/lisp/cus-theme.el	Sun Aug 13 17:04:56 2006 +0000
+++ b/lisp/cus-theme.el	Sun Aug 13 17:05:12 2006 +0000
@@ -99,7 +99,7 @@
   (widget-insert "  ")
   (widget-create 'push-button
      		 :notify (lambda (&rest ignore)
-			   (when (y-or-n-p "Discard current changes?")
+			   (when (y-or-n-p "Discard current changes? ")
 			     (kill-buffer (current-buffer))
 			     (customize-create-theme)))
      		 "Reset Buffer")
@@ -137,7 +137,7 @@
   (widget-insert "\n")
   (widget-create 'push-button
      		 :notify (lambda (&rest ignore)
-			   (when (y-or-n-p "Discard current changes?")
+			   (when (y-or-n-p "Discard current changes? ")
 			     (kill-buffer (current-buffer))
 			     (customize-create-theme)))
      		 "Reset Buffer")
@@ -290,7 +290,7 @@
 (defun custom-theme-visit-theme ()
   (interactive)
   (when (or (null custom-theme-variables)
-	    (if (y-or-n-p "Discard current changes?")
+	    (if (y-or-n-p "Discard current changes? ")
 		(progn (customize-create-theme) t)))
     (let ((theme (call-interactively 'custom-theme-merge-theme)))
       (unless (eq theme 'user)
diff -r 20f7a2b0507b -r 2ce9bf47e864 lisp/filesets.el
--- a/lisp/filesets.el	Sun Aug 13 17:04:56 2006 +0000
+++ b/lisp/filesets.el	Sun Aug 13 17:05:12 2006 +0000
@@ -1798,7 +1798,7 @@
 		      filesets-data nil)))
          (entry  (or (assoc name filesets-data)
                      (when (y-or-n-p
-                            (format "Fileset %s does not exist. Create it?"
+                            (format "Fileset %s does not exist. Create it? "
                                     name))
                        (progn
       (add-to-list 'filesets-data (list name '(:files)))
diff -r 20f7a2b0507b -r 2ce9bf47e864 lisp/pcvs.el
--- a/lisp/pcvs.el	Sun Aug 13 17:04:56 2006 +0000
+++ b/lisp/pcvs.el	Sun Aug 13 17:05:12 2006 +0000
@@ -2287,7 +2287,7 @@
   (interactive "DNew repository: ")
   (if (or (file-directory-p (expand-file-name "CVSROOT" newroot))
 	  (y-or-n-p (concat "Warning: no CVSROOT found inside repository."
-			    " Change cvs-cvsroot anyhow?")))
+			    " Change cvs-cvsroot anyhow? ")))
       (setq cvs-cvsroot newroot)))
 
 ;;;;