(activate-mark-hook, deactivate-mark-hook): Add defvars.

(push-mark-command): Run activate-mark-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8e9345f5cfea67177274dc6950f240865bb5bde0..f41aa23695ca66eb977d2c3697f7773b13f53edd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,29 @@
+2005-03-06  Chong Yidong  <cyd@stupidchicken.com>
+
+       * simple.el (activate-mark-hook, deactivate-mark-hook): Add defvars.
+       (push-mark-command): Run activate-mark-hook.
+
+2005-03-06  Richard M. Stallman  <rms@gnu.org>
+
+       * help-mode.el (help-mode-finish): Don't alter the element
+       in view-return-to-alist if there already is one.
+
+       * jit-lock.el (jit-lock-stealth-fontify): When calling sit-for,
+       make sure the current buffer is the expected one.
+
+       * novice.el (disabled-command-function): Output in *Disabled Command*.
+       Explicitly ignore non-keyboard events, and explicitly handle C-g.
+
+       * textmodes/flyspell.el (flyspell-large-region):
+       Pass args differently for aspell.
+
+       * files.el (mode-require-final-newline): Doc fix.
+
+2005-03-03  Stephan Stahl  <stahl@eos.franken.de> (tiny change)
+
+       * progmodes/which-func.el (which-function): 
+       Specify NOERROR when calling imenu--make-index-alist.
+
 2005-03-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * simple.el (normal-erase-is-backspace): Define default value.

diff --git a/lisp/simple.el b/lisp/simple.el
index 00005ae355b7f80127f7375a3260e8df2bbec91f..38c9bff41305ca21e1b2258598d67115d8c8d424 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2913,6 +2913,14 @@ START and END specify the portion of the current buffer to be copied."
 (put 'mark-inactive 'error-conditions '(mark-inactive error))
 (put 'mark-inactive 'error-message "The mark is not active now")
 
+(defvar activate-mark-hook nil
+  "Hook run when the mark becomes active.
+It is also run at the end of a command, if the mark is active and
+it is possible that the region may have changed")
+
+(defvar deactivate-mark-hook nil
+  "Hook run when the mark becomes inactive.")
+
 (defun mark (&optional force)
   "Return this buffer's mark value as integer; error if mark inactive.
 If optional argument FORCE is non-nil, access the mark value
@@ -3004,6 +3012,7 @@ Display `Mark set' unless the optional second arg NOMSG is non-nil."
     (if (or arg (null mark) (/= mark (point)))
        (push-mark nil nomsg t)
       (setq mark-active t)
+      (run-hooks 'activate-mark-hook)
       (unless nomsg
        (message "Mark activated")))))