From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 15 Jun 1994 18:05:50 +0000 (+0000)
Subject: (gud-massage-args): Fix error message syntax.
X-Git-Tag: emacs-19.34~7943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8f6c93e2bb3236358f842fb6befca5bf25b9b430;p=emacs.git

(gud-massage-args): Fix error message syntax.
(gud-marker-filter, gud-find-file): Likewise.
(gud-display-line): Don't use dialog box for questions.
---

diff --git a/lisp/gud.el b/lisp/gud.el
index 4655dd37eac..6ccd0d15c1f 100644
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -61,13 +61,13 @@ This association list has elements of the form
    gud-overload-alist))
 
 (defun gud-massage-args (file args)
-  (error "GUD not properly entered."))
+  (error "GUD not properly entered"))
 
 (defun gud-marker-filter (str)
-  (error "GUD not properly entered."))
+  (error "GUD not properly entered"))
 
 (defun gud-find-file (f)
-  (error "GUD not properly entered."))
+  (error "GUD not properly entered"))
 
 ;; ======================================================================
 ;; command definition
@@ -1103,7 +1103,8 @@ Obeying it means displaying in another window the specified file and line."
 ;; to get around the fact that this is called inside a save-excursion.
 
 (defun gud-display-line (true-file line)
-  (let* ((buffer (gud-find-file true-file))
+  (let* ((last-nonmenu-event t)	 ; Prevent use of dialog box for questions.
+	 (buffer (gud-find-file true-file))
 	 (window (display-buffer buffer))
 	 (pos))
 ;;;    (if (equal buffer (current-buffer))