1341 |
(message (if undo-in-region |
(message (if undo-in-region |
1342 |
(if equiv "Redo in region!" "Undo in region!") |
(if equiv "Redo in region!" "Undo in region!") |
1343 |
(if equiv "Redo!" "Undo!")))) |
(if equiv "Redo!" "Undo!")))) |
1344 |
(when (and (listp equiv) undo-no-redo) |
(when (and (consp equiv) undo-no-redo) |
1345 |
;; The equiv entry might point to another redo record if we have done |
;; The equiv entry might point to another redo record if we have done |
1346 |
;; undo-redo-undo-redo-... so skip to the very last equiv. |
;; undo-redo-undo-redo-... so skip to the very last equiv. |
1347 |
(while (let ((next (gethash equiv undo-equiv-table))) |
(while (let ((next (gethash equiv undo-equiv-table))) |