[Emacs-diffs] /srv/bzr/emacs/trunk r111029: * lisp/simple.el (activate-mark): Run activate-mark-hook.

[Stefan Monnier]

------------------------------------------------------------
revno: 111029
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13027
author: Kelly Dean <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2012-11-29 15:09:37 -0500
message:
  * lisp/simple.el (activate-mark): Run activate-mark-hook.
modified:
  lisp/ChangeLog
  lisp/simple.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-11-29 19:28:39 +0000
+++ b/lisp/ChangeLog    2012-11-29 20:09:37 +0000
@@ -1,3 +1,7 @@
+2012-11-29  Kelly Dean  <address@hidden>  (tiny change)
+
+       * simple.el (activate-mark): Run activate-mark-hook (bug#13027).
+
 2012-11-29  Glenn Morris  <address@hidden>
 
        * files.el (hack-dir-local-variables): Warn if try to set

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2012-11-20 17:44:04 +0000
+++ b/lisp/simple.el    2012-11-29 20:09:37 +0000
@@ -4012,7 +4012,8 @@
   (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!