Mercurial > emacs
changeset 92240:99e2bfb053c7
(set-mark-command): Deactivate mark on second C-SPC C-SPC
when using transient-mark-mode.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 26 Feb 2008 19:41:53 +0000 |
| parents | 666925f0747b |
| children | d4d3bc46621d |
| files | etc/NEWS lisp/ChangeLog lisp/simple.el |
| diffstat | 3 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/NEWS Tue Feb 26 18:48:00 2008 +0000 +++ b/etc/NEWS Tue Feb 26 19:41:53 2008 +0000 @@ -136,6 +136,8 @@ ** Emacs now supports the SVG image format through librsvg2. +** C-SPC C-SPC in transient-mark-mode pushes a mark without activating it. + ** transient-mark-mode is now enabled by default. ** If you set find-file-confirm-nonexistent-file to t, then C-x C-f
--- a/lisp/ChangeLog Tue Feb 26 18:48:00 2008 +0000 +++ b/lisp/ChangeLog Tue Feb 26 19:41:53 2008 +0000 @@ -1,3 +1,8 @@ +2008-02-26 Stefan Monnier <monnier@iro.umontreal.ca> + + * simple.el (set-mark-command): Deactivate mark on second C-SPC C-SPC + when using transient-mark-mode. + 2008-02-26 Jan Dj$(Q)Z(Brv <jan.h.d@swipnet.se> * progmodes/grep.el (grep-mode-tool-bar-map): Change place on next
--- a/lisp/simple.el Tue Feb 26 18:48:00 2008 +0000 +++ b/lisp/simple.el Tue Feb 26 19:41:53 2008 +0000 @@ -3499,6 +3499,9 @@ mark-active (null transient-mark-mode)) (setq transient-mark-mode 'lambda) (message "Transient-mark-mode temporarily enabled")) + ((and (eq last-command 'set-mark-command) + transient-mark-mode) + (deactivate-mark)) (t (push-mark-command nil)))) @@ -4598,7 +4601,6 @@ (princ "." t)) (defvaralias 'indicate-unused-lines 'indicate-empty-lines) -(defvaralias 'default-indicate-unused-lines 'default-indicate-empty-lines) (defun toggle-truncate-lines (&optional arg) "Toggle whether to fold or truncate long lines for the current buffer.