Mercurial > emacs

comparison lisp/progmodes/gud.el @ 88123:375f2633d815

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New directory
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 11:56:09 +0000
parents 695cf19ef79e
children 68c22ea6027c
comparison
equal deleted inserted replaced
52428:27bc8b966642 88123:375f2633d815
2522 (display-buffer buffer))))) 2522 (display-buffer buffer)))))
2523 (pos)) 2523 (pos))
2524 (if buffer 2524 (if buffer
2525 (progn 2525 (progn
2526 (with-current-buffer buffer 2526 (with-current-buffer buffer
2527 (unless (or (verify-visited-file-modtime buffer) gud-keep-buffer) 2527 (if (not (or (verify-visited-file-modtime buffer) gud-keep-buffer))
2528 (if (yes-or-no-p 2528 (progn
2529 (if
2530 (yes-or-no-p
2529 (format "File %s changed on disk. Reread from disk? " 2531 (format "File %s changed on disk. Reread from disk? "
2530 (buffer-name))) 2532 (buffer-name)))
2531 (revert-buffer t t) 2533 (revert-buffer t t)
2532 (setq gud-keep-buffer t))) 2534 (setq gud-keep-buffer t))))
2533 (save-restriction 2535 (save-restriction
2534 (widen) 2536 (widen)
2535 (goto-line line) 2537 (goto-line line)
2536 (setq pos (point)) 2538 (setq pos (point))
2537 (setq overlay-arrow-string "=>") 2539 (setq overlay-arrow-string "=>")
2538 (or overlay-arrow-position 2540 (or overlay-arrow-position
2539 (setq overlay-arrow-position (make-marker))) 2541 (setq overlay-arrow-position (make-marker)))
2540 (set-marker overlay-arrow-position (point) (current-buffer))) 2542 (set-marker overlay-arrow-position (point) (current-buffer)))
2541 (cond ((or (< pos (point-min)) (> pos (point-max))) 2543 (cond ((or (< pos (point-min)) (> pos (point-max)))
2542 (widen) 2544 (widen)
2543 (goto-char pos)))) 2545 (goto-char pos))))
2544 (if window (set-window-point window overlay-arrow-position)))))) 2546 (set-window-point window overlay-arrow-position)))))
2545 2547
2546 ;; The gud-call function must do the right thing whether its invoking 2548 ;; The gud-call function must do the right thing whether its invoking
2547 ;; keystroke is from the GUD buffer itself (via major-mode binding) 2549 ;; keystroke is from the GUD buffer itself (via major-mode binding)
2548 ;; or a C buffer. In the former case, we want to supply data from 2550 ;; or a C buffer. In the former case, we want to supply data from
2549 ;; gud-last-frame. Here's how we do it: 2551 ;; gud-last-frame. Here's how we do it:
2971 (font-lock-syntactic-face-function 2973 (font-lock-syntactic-face-function
2972 . gdb-script-font-lock-syntactic-face)))) 2974 . gdb-script-font-lock-syntactic-face))))
2973 2975
2974 (provide 'gud) 2976 (provide 'gud)
2975 2977
2976 ;;; arch-tag: 6d990948-df65-461a-be39-1c7fb83ac4c4
2977 ;;; gud.el ends here 2978 ;;; gud.el ends here