diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-07-17 07:52:00 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-07-17 07:52:00 -0400 |
commit | 4dc7c8d5795458e89d19b59f64760e155c2cd70b (patch) | |
tree | 2eb1ef73d69102f0ebee4e39056078adcdd49529 /admin/bzrmerge.el | |
parent | 2143fa32671374cdef26fdb24355bf690728a344 (diff) | |
parent | fbf31a9c2c08c86a7ab490cb7b920245b829a61d (diff) | |
download | emacs-4dc7c8d5795458e89d19b59f64760e155c2cd70b.tar.gz |
Merge from emacs-24
Diffstat (limited to 'admin/bzrmerge.el')
-rw-r--r-- | admin/bzrmerge.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/admin/bzrmerge.el b/admin/bzrmerge.el index 4f5cee14737..977e95860e2 100644 --- a/admin/bzrmerge.el +++ b/admin/bzrmerge.el @@ -138,17 +138,17 @@ 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 + (pcase (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)) + (`?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)))))) + (`?N (setq skip 'no)))))) (if (eq skip t) (push revno skipped) (push revno revnos))))) |