* lisp/simple.el (activate-mark): Run activate-mark-hook.

Fixes: debbugs:13027

2 files changed, 6 insertions, 1 deletions

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  <kellydeanch@yahoo.com>  (tiny change)
+
+        * simple.el (activate-mark): Run activate-mark-hook (bug#13027).
+
 2012-11-29  Glenn Morris  <rgm@gnu.org>
 
         * 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!