aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorEli Zaretskii2004-09-04 13:06:38 +0000
committerEli Zaretskii2004-09-04 13:06:38 +0000
commit2a223f35db1bb47fb00f43191e7450b45bbd7fc4 (patch)
treea3bf94168c997c8974386c1863dca5b8d3cb6bf4 /lisp
parentdb1febad5d7922e0fb69bc5262b526f1c46d968e (diff)
downloademacs-2a223f35db1bb47fb00f43191e7450b45bbd7fc4.tar.gz
emacs-2a223f35db1bb47fb00f43191e7450b45bbd7fc4.zip
Fix last change.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/simple.el8
2 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8fd27e78dac..0ae0ccc7def 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,7 +4,7 @@
4 4
52004-09-04 Dan Nicolaescu <dann@ics.uci.edu> 52004-09-04 Dan Nicolaescu <dann@ics.uci.edu>
6 6
7 * simple.el (next-error-follow-mode) 7 * simple.el (next-error-follow-minor-mode)
8 (next-error-follow-mode-post-command-hook): New functions. 8 (next-error-follow-mode-post-command-hook): New functions.
9 (next-error-follow-last-line): New defvar. 9 (next-error-follow-last-line): New defvar.
10 10
diff --git a/lisp/simple.el b/lisp/simple.el
index edf94cfd7d1..32405153788 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -253,11 +253,11 @@ If `fringe-arrow', indicate the locus by the fringe arrow."
253;;; Internal variable for `next-error-follow-mode-post-command-hook'. 253;;; Internal variable for `next-error-follow-mode-post-command-hook'.
254(defvar next-error-follow-last-line nil) 254(defvar next-error-follow-last-line nil)
255 255
256(define-minor-mode next-error-follow-mode 256(define-minor-mode next-error-follow-minor-mode
257 "Minor mode for compilation, occur and diff modes. 257 "Minor mode for compilation, occur and diff modes.
258When turned on, cursor motion in the compilation, occur or diff 258When turned on, cursor motion in the compilation, grep, occur or diff
259buffer determines the cursor in the corresponding buffer to move 259buffer causes automatic display of the corresponding source code
260to the corresponding position. " 260location."
261 nil " Fol" nil 261 nil " Fol" nil
262 (if (not next-error-follow-mode) 262 (if (not next-error-follow-mode)
263 (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) 263 (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t)