Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
37fdcfbc
Commit
37fdcfbc
authored
Aug 24, 2003
by
Nick Roberts
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(gud-display-line): Don't set window-point if
source buffer is not visible. (Only happens with M-x gdba).
parent
32d369ac
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
9 deletions
+7
-9
lisp/progmodes/gud.el
lisp/progmodes/gud.el
+7
-9
No files found.
lisp/progmodes/gud.el
View file @
37fdcfbc
...
...
@@ -2524,26 +2524,24 @@ Obeying it means displaying in another window the specified file and line."
(if buffer
(progn
(with-current-buffer buffer
(if (not (or (verify-visited-file-modtime buffer) gud-keep-buffer))
(progn
(if
(yes-or-no-p
(unless (or (verify-visited-file-modtime buffer) gud-keep-buffer)
(if (yes-or-no-p
(format "
File
%s
changed
on
disk.
Reread
from
disk?
"
(buffer-name)))
(revert-buffer t t)
(setq gud-keep-buffer t)))
)
(setq gud-keep-buffer t)))
(save-restriction
(widen)
(goto-line line)
(setq pos (point))
(setq overlay-arrow-string "
=>
")
(or overlay-arrow-position
(setq overlay-arrow-position (make-marker)))
(setq overlay-arrow-position (make-marker)))
(set-marker overlay-arrow-position (point) (current-buffer)))
(cond ((or (< pos (point-min)) (> pos (point-max)))
(widen)
(goto-char pos))))
(set-window-point window overlay-arrow-position)))))
(widen)
(goto-char pos))))
(if window
(set-window-point window overlay-arrow-position)))))
)
;; The gud-call function must do the right thing whether its invoking
;; keystroke is from the GUD buffer itself (via major-mode binding)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment