[Emacs-diffs] Changes to emacs/lisp/progmodes/gud.el

[Eli Zaretskii]

Index: emacs/lisp/progmodes/gud.el
diff -u emacs/lisp/progmodes/gud.el:1.82 emacs/lisp/progmodes/gud.el:1.83
--- emacs/lisp/progmodes/gud.el:1.82    Thu Dec 29 02:03:20 2005
+++ emacs/lisp/progmodes/gud.el Sat Dec 31 13:51:27 2005
@@ -2735,6 +2735,7 @@
         (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 @@
              (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))))