mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/gnus/message.el (message-exchange-point-and-mark): Call

Browse source 
exchange-point-and-mark with an argument rather than setting
mark-active by hand (Bug#5175).
This commit is contained in:
Chong Yidong 2010-01-01 15:42:22 -05:00
parent 9bbe0828a0
commit bd0948ca04
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View file

@ -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

5
lisp/gnus/message.el
View file

@ -7505,10 +7505,7 @@ which specify the range to operate on."
(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)