Commit 0251bafb authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(push-mark-command): Run activate-mark-hook.
parent eac88b3b
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.
......
......@@ -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")))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment