diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-04-28 01:15:16 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-04-28 01:15:16 +0200 |
| commit | 8c3245ef0107337d0a2284c58089e2e8e21e257c (patch) | |
| tree | 4675e6035f67dbe3ab24f6c6393e1984d2692557 /lisp/rect.el | |
| parent | 388bb723fa078158d3148de05e942f9c01e95dd8 (diff) | |
| download | emacs-8c3245ef0107337d0a2284c58089e2e8e21e257c.tar.gz | |
Make `undo' of `C-x r t' put point where it should be
* lisp/rect.el (string-rectangle): Make `undo' of a this
command put point back where it was (bug#7522).
Diffstat (limited to 'lisp/rect.el')
| -rw-r--r-- | lisp/rect.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/rect.el b/lisp/rect.el index 6056b14734d..07e0f6fc14b 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -476,10 +476,15 @@ Called from a program, takes three args; START, END and STRING." #'rectangle--string-erase-preview nil t) (add-hook 'post-command-hook #'rectangle--string-preview nil t)) - (read-string (format "String rectangle (default %s): " - (or (car string-rectangle-history) "")) - nil 'string-rectangle-history + (read-string (format "String rectangle (default %s): " + (or (car string-rectangle-history) "")) + nil 'string-rectangle-history (car string-rectangle-history))))))) + ;; If we undo this change, we want to have the point back where we + ;; are now, and not after the first line in the rectangle (which is + ;; the first line to be changed by the following command). + (unless (eq buffer-undo-list t) + (push (point) buffer-undo-list)) (goto-char (apply-on-rectangle 'string-rectangle-line start end string t))) |