Mercurial > emacs
changeset 106693:5240a1bf44bc
* lisp/gnus/message.el (message-exchange-point-and-mark): Call
exchange-point-and-mark with an argument rather than setting
mark-active by hand (Bug#5175).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 01 Jan 2010 15:42:22 -0500 |
| parents | 4af83423a0f1 |
| children | 7874e9166ee3 |
| files | lisp/gnus/ChangeLog lisp/gnus/message.el |
| diffstat | 2 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Fri Jan 01 15:03:37 2010 -0500 +++ b/lisp/gnus/ChangeLog Fri Jan 01 15:42:22 2010 -0500 @@ -1,3 +1,9 @@ +2010-01-01 Chong Yidong <cyd@stupidchicken.com> + + * message.el (message-exchange-point-and-mark): Call + exchange-point-and-mark with an argument rather than setting + mark-active by hand (Bug#5175). + 2009-12-18 Katsumi Yamaoka <yamaoka@jpl.org> * nntp.el (nntp-service-to-port): Work for service expressed with
--- a/lisp/gnus/message.el Fri Jan 01 15:03:37 2010 -0500 +++ b/lisp/gnus/message.el Fri Jan 01 15:42:22 2010 -0500 @@ -7505,10 +7505,7 @@ (defun message-exchange-point-and-mark () "Exchange point and mark, but don't activate region if it was inactive." - (unless (prog1 - (message-mark-active-p) - (exchange-point-and-mark)) - (setq mark-active nil))) + (exchange-point-and-mark transient-mark-mode)) (defalias 'message-make-overlay 'make-overlay) (defalias 'message-delete-overlay 'delete-overlay)