From 31646597cdf1ad25ed8aa866329f0e9e0d8caa68 Mon Sep 17 00:00:00 2001 From: Kelly Dean Date: Thu, 29 Nov 2012 15:09:37 -0500 Subject: [PATCH] * lisp/simple.el (activate-mark): Run activate-mark-hook. Fixes: debbugs:13027 --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 419c95114c8..8e77ddc95dd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-11-29 Kelly Dean (tiny change) + + * simple.el (activate-mark): Run activate-mark-hook (bug#13027). + 2012-11-29 Glenn Morris * files.el (hack-dir-local-variables): Warn if try to set diff --git a/lisp/simple.el b/lisp/simple.el index 5867561da26..ecd02545b41 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4012,7 +4012,8 @@ run `deactivate-mark-hook'." (when (mark t) (setq mark-active t) (unless transient-mark-mode - (setq transient-mark-mode 'lambda)))) + (setq transient-mark-mode 'lambda)) + (run-hooks 'activate-mark-hook))) (defun set-mark (pos) "Set this buffer's mark to POS. Don't use this function! -- 2.11.4.GIT