mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-11 10:20:33 -08:00
Code Issues Projects Releases Wiki Activity

(compilation-setup): Set local value of

Browse source 
overlay-arrow-string to "" always.
(compilation-set-window): Left fringe then don't scroll. No left
fringe then no arrow and scroll message to top.
(compilation-context-lines): Adjust doc string accordingly.
This commit is contained in:
Nick Roberts 2005-05-16 00:01:46 +00:00
parent dfb5b6c2fd
commit 8b71e4d180
1 changed files with 17 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/progmodes/compile.el
View file

@ -1247,8 +1247,7 @@ Optional argument MINOR indicates this is called from
(make-local-variable 'compilation-messages-start)
(make-local-variable 'compilation-error-screen-columns)
(make-local-variable 'overlay-arrow-position)
(set (make-local-variable 'overlay-arrow-string)
(if (display-graphic-p) "=>" ""))
(set (make-local-variable 'overlay-arrow-string) "")
(setq next-error-overlay-arrow-position nil)
(add-hook 'kill-buffer-hook
(lambda () (setq next-error-overlay-arrow-position nil)) nil t)
@ -1575,9 +1574,12 @@ region and the first line of the next region."
(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."
(defcustom compilation-context-lines nil
"Display this many lines of leading context before the current message.
If nil and the left fringe is displayed, don't scroll the
compilation output window; an arrow in the left fringe points to
the current message. If nil and there is no left fringe, the message
displays at the top of the window; there is no arrow."
:type '(choice integer (const :tag "No window scrolling" nil))
:group 'compilation
:version "22.1")
@ -1586,10 +1588,16 @@ If nil, don't scroll the compilation output window."
"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))
(goto-char mk)
(beginning-of-line
(- 1 compilation-context-lines))
(point)))
(if (left-fringe-p)
(set-window-start w (save-excursion
(goto-char mk)
(beginning-of-line 1)
(point)))))
(set-window-point w mk))
(defvar next-error-highlight-timer)