Mercurial > emacs
comparison lisp/simple.el @ 64991:942d4ce7c22d
(next-error-follow-minor-mode): Fix init value and
ligher.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 15 Aug 2005 17:23:50 +0000 |
parents | 08a222d72566 |
children | 9398f33d6515 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
64990:31195f42e486 | 64991:942d4ce7c22d |
---|---|
306 (define-minor-mode next-error-follow-minor-mode | 306 (define-minor-mode next-error-follow-minor-mode |
307 "Minor mode for compilation, occur and diff modes. | 307 "Minor mode for compilation, occur and diff modes. |
308 When turned on, cursor motion in the compilation, grep, occur or diff | 308 When turned on, cursor motion in the compilation, grep, occur or diff |
309 buffer causes automatic display of the corresponding source code | 309 buffer causes automatic display of the corresponding source code |
310 location." | 310 location." |
311 :group 'next-error :init-value " Fol" | 311 :group 'next-error :init-value nil :lighter " Fol" |
312 (if (not next-error-follow-minor-mode) | 312 (if (not next-error-follow-minor-mode) |
313 (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) | 313 (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) |
314 (add-hook 'post-command-hook 'next-error-follow-mode-post-command-hook nil t) | 314 (add-hook 'post-command-hook 'next-error-follow-mode-post-command-hook nil t) |
315 (make-local-variable 'next-error-follow-last-line))) | 315 (make-local-variable 'next-error-follow-last-line))) |
316 | 316 |