253 |
;;; Internal variable for `next-error-follow-mode-post-command-hook'. |
;;; Internal variable for `next-error-follow-mode-post-command-hook'. |
254 |
(defvar next-error-follow-last-line nil) |
(defvar next-error-follow-last-line nil) |
255 |
|
|
256 |
(define-minor-mode next-error-follow-mode |
(define-minor-mode next-error-follow-minor-mode |
257 |
"Minor mode for compilation, occur and diff modes. |
"Minor mode for compilation, occur and diff modes. |
258 |
When turned on, cursor motion in the compilation, occur or diff |
When turned on, cursor motion in the compilation, grep, occur or diff |
259 |
buffer determines the cursor in the corresponding buffer to move |
buffer causes automatic display of the corresponding source code |
260 |
to the corresponding position. " |
location." |
261 |
nil " Fol" nil |
nil " Fol" nil |
262 |
(if (not next-error-follow-mode) |
(if (not next-error-follow-mode) |
263 |
(remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) |
(remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) |