Commit d67d3afd authored by Glenn Morris's avatar Glenn Morris
Browse files

* lisp/simple.el (undo): Tweak message in undo-only case.

Fixes: debbugs:12283
parent 69678719
2012-09-02 Glenn Morris <>
* simple.el (undo): Tweak message in undo-only case. (Bug#12283)
2012-09-01 Glenn Morris <>
* term.el: Tidy up menu definitions.
......@@ -1886,9 +1886,10 @@ as an argument limits undo to changes within the current region."
;; so, ask the user whether she wants to skip the redo/undo pair.
(let ((equiv (gethash pending-undo-list undo-equiv-table)))
(or (eq (selected-window) (minibuffer-window))
(setq message (if undo-in-region
(if equiv "Redo in region!" "Undo in region!")
(if equiv "Redo!" "Undo!"))))
(setq message (format "%s%s!"
(if (or undo-no-redo (not equiv))
"Undo" "Redo")
(if undo-in-region " in region" ""))))
(when (and (consp equiv) undo-no-redo)
;; The equiv entry might point to another redo record if we have done
;; undo-redo-undo-redo-... so skip to the very last equiv.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment