[Emacs-diffs] /srv/bzr/emacs/trunk r106890: Small bzrmerge.el change.

[Glenn Morris]

------------------------------------------------------------
revno: 106890
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2012-01-18 22:42:57 -0800
message:
  Small bzrmerge.el change.
  
  * admin/bzrmerge.el (bzrmerge-missing): Allow a definitive "no" answer
  to the "skip?" question, since there can be multiple such for any revision.
modified:
  admin/ChangeLog
  admin/bzrmerge.el

=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog   2012-01-14 11:23:45 +0000
+++ b/admin/ChangeLog   2012-01-19 06:42:57 +0000
@@ -1,3 +1,8 @@
+2012-01-19  Glenn Morris  <address@hidden>
+
+       * bzrmerge.el (bzrmerge-missing): Allow a definitive "no" answer to the
+       "skip?" question, since there can be multiple such for any revision.
+
 2012-01-14  Eli Zaretskii  <address@hidden>
 
        * FOR-RELEASE (Check the Emacs Tutorial): Mark TUTORIAL.he as

=== modified file 'admin/bzrmerge.el'
--- a/admin/bzrmerge.el 2012-01-05 09:46:05 +0000
+++ b/admin/bzrmerge.el 2012-01-19 06:42:57 +0000
@@ -133,9 +133,23 @@
                     (setq str (substring str (match-end 0))))
                   (when (string-match "[.!;, ]+\\'" str)
                     (setq str (substring str 0 (match-beginning 0))))
-                  (if (save-excursion (y-or-n-p (concat str ": Skip? ")))
-                      (setq skip t))))
-              (if skip
+                  (let ((help-form "\
+Type `y' to skip this revision,
+`N' to include it and go on to the next revision,
+`n' to not skip, but continue to search this log entry for skip regexps,
+`q' to quit merging."))
+                    (case (save-excursion
+                            (read-char-choice
+                             (format "%s: Skip (y/n/N/q/%s)? " str
+                                     (key-description (vector help-char)))
+                             '(?y ?n ?N ?q)))
+                      (?y (setq skip t))
+                      (?q (keyboard-quit))
+                      ;; A single log entry can match skip-regexp multiple
+                      ;; times.  If you are sure you don't want to skip it,
+                      ;; you don't want to be asked multiple times.
+                      (?N (setq skip 'no))))))
+              (if (eq skip t)
                   (push revno skipped)
                 (push revno revnos)))))
         (delete-region (point) (point-max)))