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

New directory

--- a/lisp/progmodes/gud.el	Thu Sep 04 04:00:49 2003 +0000
+++ b/lisp/progmodes/gud.el	Mon Sep 08 11:56:09 2003 +0000
@@ -2524,24 +2524,26 @@
     (if buffer
 	(progn
 	  (with-current-buffer buffer
-	    (unless (or (verify-visited-file-modtime buffer) gud-keep-buffer)
-		  (if (yes-or-no-p
+	    (if (not (or (verify-visited-file-modtime buffer) gud-keep-buffer))
+		(progn
+		  (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))))
-	  (if window (set-window-point window overlay-arrow-position))))))
+	    (widen)
+	    (goto-char pos))))
+	  (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)
@@ -2973,5 +2975,4 @@
 
 (provide 'gud)
 
-;;; arch-tag: 6d990948-df65-461a-be39-1c7fb83ac4c4
 ;;; gud.el ends here