diff options
author | Eli Zaretskii <eliz@gnu.org> | 2004-09-04 13:06:38 +0000 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2004-09-04 13:06:38 +0000 |
commit | d9cea513c0cda4d896cf3f3c0fa2b86c5f18b8c7 (patch) | |
tree | 98f7b3ee4d0dce45fd4cea9234716a2868455355 /lisp | |
parent | 38e565ec1d83848f08e0f164518f48134dc34dac (diff) | |
download | emacs-d9cea513c0cda4d896cf3f3c0fa2b86c5f18b8c7.tar.gz |
Fix last change.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 2 | ||||
-rw-r--r-- | lisp/simple.el | 8 |
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 @@ 2004-09-04 Dan Nicolaescu <dann@ics.uci.edu> - * simple.el (next-error-follow-mode) + * simple.el (next-error-follow-minor-mode) (next-error-follow-mode-post-command-hook): New functions. (next-error-follow-last-line): New defvar. 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." ;;; Internal variable for `next-error-follow-mode-post-command-hook'. (defvar next-error-follow-last-line nil) -(define-minor-mode next-error-follow-mode +(define-minor-mode next-error-follow-minor-mode "Minor mode for compilation, occur and diff modes. -When turned on, cursor motion in the compilation, occur or diff -buffer determines the cursor in the corresponding buffer to move -to the corresponding position. " +When turned on, cursor motion in the compilation, grep, occur or diff +buffer causes automatic display of the corresponding source code +location." nil " Fol" nil (if (not next-error-follow-mode) (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) |