Mercurial > emacs
comparison lisp/simple.el @ 61276:31cb9b5b8d41
(next-error-follow-minor-mode): Specify :group.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Mon, 04 Apr 2005 09:07:45 +0000 |
| parents | 728460f45e1e |
| children | d5052fc4ea58 360860a0006f |
comparison
equal
deleted
inserted
replaced
| 61275:4e273c06e466 | 61276:31cb9b5b8d41 |
|---|---|
| 300 (define-minor-mode next-error-follow-minor-mode | 300 (define-minor-mode next-error-follow-minor-mode |
| 301 "Minor mode for compilation, occur and diff modes. | 301 "Minor mode for compilation, occur and diff modes. |
| 302 When turned on, cursor motion in the compilation, grep, occur or diff | 302 When turned on, cursor motion in the compilation, grep, occur or diff |
| 303 buffer causes automatic display of the corresponding source code | 303 buffer causes automatic display of the corresponding source code |
| 304 location." | 304 location." |
| 305 nil " Fol" nil | 305 :group 'next-error :init-value " Fol" |
| 306 (if (not next-error-follow-minor-mode) | 306 (if (not next-error-follow-minor-mode) |
| 307 (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) | 307 (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) |
| 308 (add-hook 'post-command-hook 'next-error-follow-mode-post-command-hook nil t) | 308 (add-hook 'post-command-hook 'next-error-follow-mode-post-command-hook nil t) |
| 309 (make-variable-buffer-local 'next-error-follow-last-line))) | 309 (make-variable-buffer-local 'next-error-follow-last-line))) |
| 310 | 310 |