From 282d6eaec09020e5923c15baf000d20565093716 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 4 Sep 2004 12:45:26 +0000 Subject: [PATCH] (next-error-follow-mode, next-error-follow-mode-post-command-hook): New functions. (next-error-follow-last-line): New defvar. --- lisp/simple.el | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/lisp/simple.el b/lisp/simple.el index 271a07ee531..edf94cfd7d1 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -249,6 +249,32 @@ If `fringe-arrow', indicate the locus by the fringe arrow." (const :tag "Fringe arrow" 'fringe-arrow)) :group 'next-error :version "21.4") + +;;; Internal variable for `next-error-follow-mode-post-command-hook'. +(defvar next-error-follow-last-line nil) + +(define-minor-mode next-error-follow-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. " + nil " Fol" nil + (if (not next-error-follow-mode) + (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t) + (add-hook 'post-command-hook 'next-error-follow-mode-post-command-hook nil t) + (make-variable-buffer-local 'next-error-follow-last-line))) + +;;; Used as a `post-command-hook' by `next-error-follow-mode' +;;; for the *Compilation* *grep* and *Occur* buffers. +(defun next-error-follow-mode-post-command-hook () + (unless (equal next-error-follow-last-line (line-number-at-pos)) + (setq next-error-follow-last-line (line-number-at-pos)) + (condition-case nil + (let ((compilation-context-lines nil)) + (setq compilation-current-error (point)) + (next-error-no-select 0)) + (error t)))) + ;;; -- 2.11.4.GIT