Mercurial > emacs
changeset 72386:2ce9bf47e864
* 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.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Sun, 13 Aug 2006 17:05:12 +0000 |
| parents | 20f7a2b0507b |
| children | feb2b528a623 |
| files | lisp/ChangeLog lisp/cus-theme.el lisp/filesets.el lisp/pcvs.el |
| diffstat | 4 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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)
--- 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)))
--- 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))) ;;;;