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