mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

(gud-display-line): Support hl-line in the source buffer.

Browse source
This commit is contained in:
Eli Zaretskii 2005-12-31 13:51:27 +00:00
parent 913dd16dd1
commit 8c3f3d642d
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/progmodes/gud.el
View file

@ -2735,6 +2735,7 @@ Obeying it means displaying in another window the specified file and line."
(window (and buffer (or (get-buffer-window buffer)
(display-buffer buffer))))
(pos))
(message "%s %s" (current-buffer) buffer)
(if buffer
(progn
(with-current-buffer buffer
@ -2750,7 +2751,15 @@ Obeying it means displaying in another window the specified file and line."
(setq pos (point))
(or gud-overlay-arrow-position
(setq gud-overlay-arrow-position (make-marker)))
(set-marker gud-overlay-arrow-position (point) (current-buffer)))
(set-marker gud-overlay-arrow-position (point) (current-buffer))
;; If they turned on hl-line, move the hl-line highlight to
;; the arrow's line.
(when (featurep 'hl-line)
(cond
(global-hl-line-mode
(global-hl-line-highlight))
((and hl-line-mode hl-line-sticky-flag)
(hl-line-highlight)))))
(cond ((or (< pos (point-min)) (> pos (point-max)))
(widen)
(goto-char pos))))