diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-12-15 21:24:08 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-12-15 21:24:08 -0500 |
| commit | 2013a2f955e4dc6edf9869767e9f5d70fbf9d69c (patch) | |
| tree | d641c6fe8fc0b763645a5447f1fda75987cc4ac0 /lisp/emulation/cua-base.el | |
| parent | db50ad5f11cc5809c27091181a13ee7aa34ec5ed (diff) | |
| download | emacs-2013a2f955e4dc6edf9869767e9f5d70fbf9d69c.tar.gz | |
* lisp/emulation/cua-rect.el (cua-rectangle-mark-mode): New minor mode.
(cua--deactivate-rectangle): Don't deactivate the mark.
(cua-set-rectangle-mark): Don't set mark-active since
cua--activate-rectangle already does it for us.
(cua--rectangle-highlight-for-redisplay): Unhighlight a previous
non-rectangular region.
* lisp/emulation/cua-base.el (cua-repeat-replace-region):
Use with-current-buffer.
* lisp/net/gnutls.el: Use cl-lib.
(gnutls-negotiate): `mapcan' -> cl-mapcan.
Diffstat (limited to 'lisp/emulation/cua-base.el')
| -rw-r--r-- | lisp/emulation/cua-base.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 24149a33c89..4a158087d12 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el @@ -971,9 +971,8 @@ replaced by typing text over it and replaces it with the same stretch of text." (interactive "P") (when cua--last-deleted-region-pos - (save-excursion + (with-current-buffer (car cua--last-deleted-region-pos) (save-restriction - (set-buffer (car cua--last-deleted-region-pos)) (widen) ;; Find the text that replaced the region via the undo list. (let ((ul buffer-undo-list) |