comparison lisp/progmodes/compile.el @ 55227:193a4c332536

(compilation-context-lines): Add nil option to disable compilation output window scrolling. (compilation-set-window): Use it.

55226:e3dae0e8c99e

	(setcdr (cddr loc) (list marker))
      (setcdr loc (list line file marker)))
    loc))

(defcustom compilation-context-lines 0
  "*Display this many lines of leading context before message."
  :type 'integer
  :group 'compilation
  :version "21.4")

(defsubst compilation-set-window (w mk)
  "Align the compilation output window W with marker MK near top."
  (set-window-start w (save-excursion
			(goto-char mk)
			(beginning-of-line (- 1 compilation-context-lines))
			(point)))
  (set-window-point w mk))

(defun compilation-goto-locus (msg mk end-mk)
  "Jump to an error corresponding to MSG at MK.
All arguments are markers.  If END-MK is non nil, mark is set there."

55227:193a4c332536

	(setcdr (cddr loc) (list marker))
      (setcdr loc (list line file marker)))
    loc))

(defcustom compilation-context-lines 0
  "*Display this many lines of leading context before message.
If nil, don't scroll the compilation output window."
  :type '(choice integer (const :tag "No window scrolling" nil))
  :group 'compilation
  :version "21.4")

(defsubst compilation-set-window (w mk)
  "Align the compilation output window W with marker MK near top."
  (if (integerp compilation-context-lines)
      (set-window-start w (save-excursion
                            (goto-char mk)
                            (beginning-of-line (- 1 compilation-context-lines))
                            (point))))
  (set-window-point w mk))

(defun compilation-goto-locus (msg mk end-mk)
  "Jump to an error corresponding to MSG at MK.
All arguments are markers.  If END-MK is non nil, mark is set there."