# HG changeset patch # User Romain Francoise # Date 1127604388 0 # Node ID 96187e7edd1b717c673e76a1cd749efe4400623d # Parent 41260182da5b5ac57cb94822237af3a1f20cf160 2005-09-25 Romain Francoise * dired-aux.el (dired-copy-file-recursive): * dired.el (dired-delete-file): * ediff-mult.el (ediff-dir-diff-copy-file): * ediff-util.el (ediff-test-save-region): * forms.el (forms-mode): * ido.el (ido-file-internal, ido-delete-file-at-head): * log-edit.el (log-edit-done): * ses.el (ses-yank-resize): * play/gomoku.el (gomoku-human-plays, gomoku) (gomoku-human-resigns, gomoku-prompt-for-other-game) (gomoku-offer-a-draw): * play/landmark.el (lm-human-resigns, lm): * net/eudcb-ldap.el (eudc-ldap-check-base): * play/mpuz.el (mpuz-offer-abort, mpuz-try-letter, mpuz-close-game): * progmodes/ebrowse.el (ebrowse-find-pattern): * progmodes/idlw-shell.el (idlwave-shell-set-bp-check): * textmodes/reftex-index.el (reftex-index-initialize-phrases-buffer): End `yes-or-no-p' and `y-or-n-p' prompts with question mark and space. * vc.el (vc-delete-file): * play/gomoku.el (gomoku-terminate-game, gomoku) (gomoku-prompt-for-move, gomoku-human-takes-back): * play/landmark.el (lm-human-takes-back, lm-prompt-for-move) (lm-start-robot, lm-human-plays): Remove extraneous spaces in messages. diff -r 41260182da5b -r 96187e7edd1b lisp/ChangeLog --- a/lisp/ChangeLog Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/ChangeLog Sat Sep 24 23:26:28 2005 +0000 @@ -1,7 +1,36 @@ +2005-09-25 Romain Francoise + + * dired-aux.el (dired-copy-file-recursive): + * dired.el (dired-delete-file): + * ediff-mult.el (ediff-dir-diff-copy-file): + * ediff-util.el (ediff-test-save-region): + * forms.el (forms-mode): + * ido.el (ido-file-internal, ido-delete-file-at-head): + * log-edit.el (log-edit-done): + * ses.el (ses-yank-resize): + * play/gomoku.el (gomoku-human-plays, gomoku) + (gomoku-human-resigns, gomoku-prompt-for-other-game) + (gomoku-offer-a-draw): + * play/landmark.el (lm-human-resigns, lm): + * net/eudcb-ldap.el (eudc-ldap-check-base): + * play/mpuz.el (mpuz-offer-abort, mpuz-try-letter, mpuz-close-game): + * progmodes/ebrowse.el (ebrowse-find-pattern): + * progmodes/idlw-shell.el (idlwave-shell-set-bp-check): + * textmodes/reftex-index.el (reftex-index-initialize-phrases-buffer): + End `yes-or-no-p' and `y-or-n-p' prompts with question mark and + space. + + * vc.el (vc-delete-file): + * play/gomoku.el (gomoku-terminate-game, gomoku) + (gomoku-prompt-for-move, gomoku-human-takes-back): + * play/landmark.el (lm-human-takes-back, lm-prompt-for-move) + (lm-start-robot, lm-human-plays): Remove extraneous spaces in + messages. + 2005-09-24 Dan Nicolaescu * term/rxvt.el (rxvt-register-default-colors): Add support for 255 - color rxvt terminals by using the code xterm.el used to use before + color rxvt terminals by using the code xterm.el used to use before 2005-04-09 in order to match the colors used by rxvt. 2005-09-24 Emanuele Giaquinta (tiny change) diff -r 41260182da5b -r 96187e7edd1b lisp/dired-aux.el --- a/lisp/dired-aux.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/dired-aux.el Sat Sep 24 23:26:28 2005 +0000 @@ -1147,7 +1147,7 @@ (if (and recursive (eq t (car attrs)) (or (eq recursive 'always) - (yes-or-no-p (format "Recursive copies of %s " from)))) + (yes-or-no-p (format "Recursive copies of %s? " from)))) ;; This is a directory. (let ((files (directory-files from nil dired-re-no-dot))) (if (eq recursive 'top) (setq recursive 'always)) ; Don't ask any more. diff -r 41260182da5b -r 96187e7edd1b lisp/dired.el --- a/lisp/dired.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/dired.el Sat Sep 24 23:26:28 2005 +0000 @@ -2379,7 +2379,7 @@ (setq files (directory-files file t dired-re-no-dot)) ; Not empty. (or (eq recursive 'always) - (yes-or-no-p (format "Recursive delete of %s " + (yes-or-no-p (format "Recursive delete of %s? " (dired-make-relative file))))) (if (eq recursive 'top) (setq recursive 'always)) ; Don't ask again. (while files ; Recursively delete (possibly asking). diff -r 41260182da5b -r 96187e7edd1b lisp/ediff-mult.el --- a/lisp/ediff-mult.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/ediff-mult.el Sat Sep 24 23:26:28 2005 +0000 @@ -1314,7 +1314,7 @@ (if otherfile (or (file-exists-p otherfile) (if (y-or-n-p - (format "Copy %s to %s ? " file-abs otherfile)) + (format "Copy %s to %s? " file-abs otherfile)) (let* ((file-diff-record (assoc file-tail dir-diff-list)) (new-mem-code (* (cdr file-diff-record) file-mem-code))) diff -r 41260182da5b -r 96187e7edd1b lisp/ediff-util.el --- a/lisp/ediff-util.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/ediff-util.el Sat Sep 24 23:26:28 2005 +0000 @@ -2111,7 +2111,7 @@ (if this-buf-n-th-diff-saved (if (yes-or-no-p (format - "You've previously copied diff region %d to buffer %S. Confirm " + "You've previously copied diff region %d to buffer %S. Confirm? " (1+ n) buf-type)) t (error "Quit")) diff -r 41260182da5b -r 96187e7edd1b lisp/forms.el --- a/lisp/forms.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/forms.el Sat Sep 24 23:26:28 2005 +0000 @@ -519,7 +519,7 @@ (if (or (eq enable-local-eval t) (yes-or-no-p (concat "Evaluate lisp code in buffer " - (buffer-name) " to display forms "))) + (buffer-name) " to display forms? "))) (eval-buffer) (error "`enable-local-eval' inhibits buffer evaluation")) diff -r 41260182da5b -r 96187e7edd1b lisp/ido.el --- a/lisp/ido.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/ido.el Sat Sep 24 23:26:28 2005 +0000 @@ -2138,7 +2138,7 @@ (ido-record-command method dirname) (ido-record-work-directory) (funcall method dirname)) - ((y-or-n-p (format "Directory %s does not exist. Create it " filename)) + ((y-or-n-p (format "Directory %s does not exist. Create it? " filename)) (ido-record-command method dirname) (ido-record-work-directory dirname) (make-directory-internal dirname) @@ -3529,7 +3529,7 @@ (file-exists-p file) (not (file-directory-p file)) (file-writable-p ido-current-directory) - (yes-or-no-p (concat "Delete " file " "))) + (yes-or-no-p (concat "Delete " file "? "))) (delete-file file) ;; Check if file still exists. (if (file-exists-p file) diff -r 41260182da5b -r 96187e7edd1b lisp/log-edit.el --- a/lisp/log-edit.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/log-edit.el Sat Sep 24 23:26:28 2005 +0000 @@ -383,7 +383,7 @@ (equal (log-edit-files) log-edit-initial-files))) (progn (log-edit-show-files) - (not (y-or-n-p "Really commit ? ")))) + (not (y-or-n-p "Really commit? ")))) (progn (when (not win) (log-edit-hide-buf)) (message "Oh, well! Later maybe?")) (run-hooks 'log-edit-done-hook) diff -r 41260182da5b -r 96187e7edd1b lisp/net/eudcb-ldap.el --- a/lisp/net/eudcb-ldap.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/net/eudcb-ldap.el Sat Sep 24 23:26:28 2005 +0000 @@ -194,7 +194,7 @@ "Check if the current LDAP server has a configured search base." (unless (or (eudc-ldap-get-host-parameter eudc-server 'base) ldap-default-base - (null (y-or-n-p "No search base defined. Configure it now ?"))) + (null (y-or-n-p "No search base defined. Configure it now? "))) ;; If the server is not in ldap-host-parameters-alist we add it for the ;; user (if (null (assoc eudc-server ldap-host-parameters-alist)) diff -r 41260182da5b -r 96187e7edd1b lisp/play/gomoku.el --- a/lisp/play/gomoku.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/play/gomoku.el Sat Sep 24 23:26:28 2005 +0000 @@ -671,11 +671,11 @@ (cond ((< gomoku-number-of-moves 20) "This was a REALLY QUICK win.") (gomoku-human-refused-draw - "I won... Too bad you refused my offer of a draw !") + "I won... Too bad you refused my offer of a draw!") (gomoku-human-took-back - "I won... Taking moves back will not help you !") + "I won... Taking moves back will not help you!") ((not gomoku-emacs-played-first) - "I won... Playing first did not help you much !") + "I won... Playing first did not help you much!") ((and (zerop gomoku-number-of-human-wins) (zerop gomoku-number-of-draws) (> gomoku-number-of-emacs-wins 1)) @@ -688,7 +688,7 @@ (gomoku-human-took-back " I, for one, never take my moves back...") (gomoku-emacs-played-first - ".. so what ?") + ".. so what?") (" Now, let me play first just once.")))) ((eq result 'human-resigned) (setq gomoku-number-of-emacs-wins (1+ gomoku-number-of-emacs-wins)) @@ -758,7 +758,7 @@ (setq gomoku-emacs-is-computing nil) (gomoku-terminate-game 'crash-game) (sit-for 4) - (or (y-or-n-p "Another game ") (error "Chicken !"))) + (or (y-or-n-p "Another game? ") (error "Chicken!"))) (switch-to-buffer gomoku-buffer-name) (gomoku-mode)) (cond @@ -779,14 +779,14 @@ (if (and (> m max-height) (not (eq m gomoku-saved-board-height)) ;; Use EQ because SAVED-BOARD-HEIGHT may be nil - (not (y-or-n-p (format "Do you really want %d rows " m)))) + (not (y-or-n-p (format "Do you really want %d rows? " m)))) (setq m max-height))) (message "One moment, please...") (gomoku-start-game n m) - (if (y-or-n-p "Do you allow me to play first ") + (if (y-or-n-p "Do you allow me to play first? ") (gomoku-emacs-plays) (gomoku-prompt-for-move))) - ((y-or-n-p "Shall we continue our game ") + ((y-or-n-p "Shall we continue our game? ") (gomoku-prompt-for-move)) (t (gomoku-human-resigns)))) @@ -875,9 +875,9 @@ (let (square score) (setq square (gomoku-point-square)) (cond ((null square) - (error "Your point is not on a square. Retry !")) + (error "Your point is not on a square. Retry!")) ((not (zerop (aref gomoku-board square))) - (error "Your point is not on a free square. Retry !")) + (error "Your point is not on a free square. Retry!")) (t (setq score (aref gomoku-score-table square)) (gomoku-play-move square 1) @@ -902,7 +902,7 @@ (sit-for 4) (gomoku-prompt-for-other-game)) ((zerop gomoku-number-of-human-moves) - (message "You have not played yet... Your move ?")) + (message "You have not played yet... Your move?")) (t (message "One moment, please...") ;; It is possible for the user to let Emacs play several consecutive @@ -923,9 +923,9 @@ (gomoku-crash-game)) ((not gomoku-game-in-progress) (message "There is no game in progress")) - ((y-or-n-p "You mean, you resign ") + ((y-or-n-p "You mean, you resign? ") (gomoku-terminate-game 'human-resigned)) - ((y-or-n-p "You mean, we continue ") + ((y-or-n-p "You mean, we continue? ") (gomoku-prompt-for-move)) (t (gomoku-terminate-game 'human-resigned)))) ; OK. Accept it @@ -937,21 +937,21 @@ (defun gomoku-prompt-for-move () "Display a message asking for Human's move." (message (if (zerop gomoku-number-of-human-moves) - "Your move ? (move to a free square and hit X, RET ...)" - "Your move ?")) + "Your move? (move to a free square and hit X, RET ...)" + "Your move?")) ;; This may seem silly, but if one omits the following line (or a similar ;; one), the cursor may very well go to some place where POINT is not. (save-excursion (set-buffer (other-buffer)))) (defun gomoku-prompt-for-other-game () "Ask for another game, and start it." - (if (y-or-n-p "Another game ") + (if (y-or-n-p "Another game? ") (gomoku gomoku-board-width gomoku-board-height) - (error "Chicken !"))) + (error "Chicken!"))) (defun gomoku-offer-a-draw () "Offer a draw and return t if Human accepted it." - (or (y-or-n-p "I offer you a draw. Do you accept it ") + (or (y-or-n-p "I offer you a draw. Do you accept it? ") (not (setq gomoku-human-refused-draw t)))) ;;; diff -r 41260182da5b -r 96187e7edd1b lisp/play/landmark.el --- a/lisp/play/landmark.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/play/landmark.el Sat Sep 24 23:26:28 2005 +0000 @@ -763,9 +763,9 @@ (let (square score) (setq square (lm-point-square)) (cond ((null square) - (error "Your point is not on a square. Retry !")) + (error "Your point is not on a square. Retry!")) ((not (zerop (aref lm-board square))) - (error "Your point is not on a free square. Retry !")) + (error "Your point is not on a free square. Retry!")) (t (setq score (aref lm-score-table square)) (lm-play-move square 1) @@ -790,7 +790,7 @@ (sit-for 4) (lm-prompt-for-other-game)) ((zerop lm-number-of-human-moves) - (message "You have not played yet... Your move ?")) + (message "You have not played yet... Your move?")) (t (message "One moment, please...") ;; It is possible for the user to let Emacs play several consecutive @@ -811,9 +811,9 @@ (lm-crash-game)) ((not lm-game-in-progress) (message "There is no game in progress")) - ((y-or-n-p "You mean, you resign ") + ((y-or-n-p "You mean, you resign? ") (lm-terminate-game 'human-resigned)) - ((y-or-n-p "You mean, we continue ") + ((y-or-n-p "You mean, we continue? ") (lm-prompt-for-move)) (t (lm-terminate-game 'human-resigned)))) ; OK. Accept it @@ -823,23 +823,23 @@ (defun lm-prompt-for-move () "Display a message asking for Human's move." (message (if (zerop lm-number-of-human-moves) - "Your move ? (move to a free square and hit X, RET ...)" - "Your move ?")) + "Your move? (move to a free square and hit X, RET ...)" + "Your move?")) ;; This may seem silly, but if one omits the following line (or a similar ;; one), the cursor may very well go to some place where POINT is not. (save-excursion (set-buffer (other-buffer)))) (defun lm-prompt-for-other-game () "Ask for another game, and start it." - (if (y-or-n-p "Another game ") + (if (y-or-n-p "Another game? ") (if (y-or-n-p "Retain learned weights ") (lm 2) (lm 1)) - (message "Chicken !"))) + (message "Chicken!"))) (defun lm-offer-a-draw () "Offer a draw and return t if Human accepted it." - (or (y-or-n-p "I offer you a draw. Do you accept it ") + (or (y-or-n-p "I offer you a draw. Do you accept it? ") (not (setq lm-human-refused-draw t)))) @@ -1523,9 +1523,9 @@ (let (square score) (setq square (lm-point-square)) (cond ((null square) - (error "Your point is not on a square. Retry !")) + (error "Your point is not on a square. Retry!")) ((not (zerop (aref lm-board square))) - (error "Your point is not on a free square. Retry !")) + (error "Your point is not on a free square. Retry!")) (t (progn (lm-plot-square square 1) @@ -1678,7 +1678,7 @@ (if (and (> lm-m max-height) (not (eq lm-m lm-saved-board-height)) ;; Use EQ because SAVED-BOARD-HEIGHT may be nil - (not (y-or-n-p (format "Do you really want %d rows " lm-m)))) + (not (y-or-n-p (format "Do you really want %d rows? " lm-m)))) (setq lm-m max-height))) (if lm-one-moment-please (message "One moment, please...")) diff -r 41260182da5b -r 96187e7edd1b lisp/play/mpuz.el --- a/lisp/play/mpuz.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/play/mpuz.el Sat Sep 24 23:26:28 2005 +0000 @@ -400,7 +400,7 @@ (defun mpuz-offer-abort () "Ask if user wants to abort current puzzle." (interactive) - (if (y-or-n-p "Abort game ") + (if (y-or-n-p "Abort game? ") (let ((buf (mpuz-get-buffer))) (message "Mult Puzzle aborted.") (setq mpuz-in-progress nil @@ -444,7 +444,7 @@ (mpuz-ding t)) (t (mpuz-try-proposal letter-char digit-char)))) - (if (y-or-n-p "Start a new game ") + (if (y-or-n-p "Start a new game? ") (mpuz-start-new-game) (message "OK. I won't.")))) @@ -489,7 +489,7 @@ (t "not serious."))))) (message message) (sit-for 4) - (if (y-or-n-p (concat message " Start a new game ")) + (if (y-or-n-p (concat message " Start a new game? ")) (mpuz-start-new-game) (message "Good Bye!")))) diff -r 41260182da5b -r 96187e7edd1b lisp/progmodes/ebrowse.el --- a/lisp/progmodes/ebrowse.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/progmodes/ebrowse.el Sat Sep 24 23:26:28 2005 +0000 @@ -1798,7 +1798,7 @@ ;; START will be 0. (when (and (boundp 'ebrowse-debug) (symbol-value 'ebrowse-debug)) - (y-or-n-p (format "start = %d" start)) + (y-or-n-p (format "start = %d? " start)) (y-or-n-p pattern)) (setf found (loop do (goto-char (max (point-min) (- start offset))) diff -r 41260182da5b -r 96187e7edd1b lisp/progmodes/idlw-shell.el --- a/lisp/progmodes/idlw-shell.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/progmodes/idlw-shell.el Sat Sep 24 23:26:28 2005 +0000 @@ -2462,7 +2462,7 @@ (beep) (y-or-n-p (concat "Okay to recompile file " - (idlwave-shell-bp-get bp 'file) " "))) + (idlwave-shell-bp-get bp 'file) "? "))) ;; Recompile (progn ;; Clean up before retrying diff -r 41260182da5b -r 96187e7edd1b lisp/ses.el --- a/lisp/ses.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/ses.el Sat Sep 24 23:26:28 2005 +0000 @@ -2560,7 +2560,7 @@ colbool (> needcols 0)) (when (or rowbool colbool) ;;Need to insert. Get confirm - (or (y-or-n-p (format "Yank will insert %s%s%s. Continue " + (or (y-or-n-p (format "Yank will insert %s%s%s. Continue? " (if rowbool (format "%d rows" needrows) "") (if (and rowbool colbool) " and " "") (if colbool (format "%d columns" needcols) ""))) diff -r 41260182da5b -r 96187e7edd1b lisp/textmodes/reftex-index.el --- a/lisp/textmodes/reftex-index.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/textmodes/reftex-index.el Sat Sep 24 23:26:28 2005 +0000 @@ -1239,7 +1239,7 @@ (beginning-of-line 2)) (cond ((fboundp 'zmacs-activate-region) (zmacs-activate-region)) ((boundp 'make-active) (setq mark-active t))) - (if (yes-or-no-p "Delete and rebuilt header ") + (if (yes-or-no-p "Delete and rebuild header? ") (delete-region (point-min) (point)))) ;; Insert the mode line diff -r 41260182da5b -r 96187e7edd1b lisp/vc.el --- a/lisp/vc.el Sat Sep 24 23:24:38 2005 +0000 +++ b/lisp/vc.el Sat Sep 24 23:26:28 2005 +0000 @@ -2727,7 +2727,7 @@ (error "Deleting files under %s is not supported in VC" backend)) (if (and buf (buffer-modified-p buf)) (error "Please save files before deleting them")) - (unless (y-or-n-p (format "Really want to delete %s ? " + (unless (y-or-n-p (format "Really want to delete %s? " (file-name-nondirectory file))) (error "Abort!")) (unless (or (file-directory-p file) (null make-backup-files))