[debbugs-tracker] bug#13027: closed (Activating mark does not run mark activation hook)

[GNU bug Tracking System]

Your message dated Thu, 29 Nov 2012 15:10:05 -0500
with message-id <address@hidden>
and subject line Re: bug#13027: Activating mark does not run mark activation 
hook
has caused the debbugs.gnu.org bug report #13027,
regarding Activating mark does not run mark activation hook
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
13027: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13027
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> Activating mark does not run mark activation hook
>
>
>
>
> Date: 
>
> Thu, 29 Nov 2012 02:08:19 -0800 (PST)
>
>
>
>
> In 24.2, from emacs -Q
> (add-hook 'deactivate-mark-hook (lambda () (message "Deactivate mark hook 
> called.")))
> (add-hook 'activate-mark-hook (lambda () (message "Activate mark hook 
> called.")))
> C-SPC C-SPC C-SPC C-SPC
> In *Messages* you get:
>
> Mark set
> Activate mark hook called.
> Deactivate mark hook called.
> Mark deactivated
> Mark activated
> Deactivate mark hook called.
> Mark deactivated
>
> Notice that the second "Activate mark hook called" is missing.
>
> simple.el has:
> (defun activate-mark ()
>   "Activate the mark."
>   (when (mark t)
>     (setq mark-active t)
>     (unless transient-mark-mode
>       (setq transient-mark-mode 'lambda))))
>
> The bug is fixed by changing that to:
> (defun activate-mark ()
>   "Activate the mark."
>   (when (mark t)
>     (setq mark-active t)
>     (run-hooks 'activate-mark-hook)
>     (unless transient-mark-mode
>       (setq transient-mark-mode 'lambda))))
>
>
>
>
> --- End Message ---
> --- Begin Message ---
>
>
>
> Subject: 
>
> Re: bug#13027: Activating mark does not run mark activation hook
>
>
>
>
> Date: 
>
> Thu, 29 Nov 2012 15:10:05 -0500
>
>
>
>
> User-agent: 
>
> Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux)
>
>
>
>
> > The bug is fixed by changing that to:
> > (defun activate-mark ()
> >   "Activate the mark."
> >   (when (mark t)
> >     (setq mark-active t)
> >     (run-hooks 'activate-mark-hook)
> >     (unless transient-mark-mode
> >       (setq transient-mark-mode 'lambda))))
>
> Thank you, installed,
>
>
>         Stefan
>
>
> --- End Message ---