* 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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8c9cfaff72a2faf7857abe9698c506d9f3c36ddd..4e44ebd5fbc927e89c03532e117c4121d1c0e0fd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/cus-theme.el b/lisp/cus-theme.el
index 53f530505ae3fd5a18a31468004095cbd85d4176..b4fe1e4b0bfbfe0c3d7727ffe29e0b68b71f2394 100644 (file)
--- a/lisp/cus-theme.el
+++ b/lisp/cus-theme.el
@@ -99,7 +99,7 @@ the directory " custom-theme-directory "\n\n")
   (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 @@ the directory " custom-theme-directory "\n\n")
   (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 @@ Optional EVENT is the location for the menu."
 (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 --git a/lisp/filesets.el b/lisp/filesets.el
index 4ca5a9d14207b7fb2999584705378d499772604d..eb8cdb02617e2fef866ed918418abecc8ef073b1 100644 (file)
--- a/lisp/filesets.el
+++ b/lisp/filesets.el
@@ -1798,7 +1798,7 @@ User will be queried, if no fileset name is provided."
                      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 --git a/lisp/pcvs.el b/lisp/pcvs.el
index 89aeef53b8045099fc07c08196a967c56dfc20dc..a9105227bfda515ae0136a8bbe7411b2551d7c03 100644 (file)
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -2287,7 +2287,7 @@ this file, or a list of arguments to send to the program."
   (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)))
 
 ;;;;