From 8f6c93e2bb3236358f842fb6befca5bf25b9b430 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 15 Jun 1994 18:05:50 +0000 Subject: [PATCH] (gud-massage-args): Fix error message syntax. (gud-marker-filter, gud-find-file): Likewise. (gud-display-line): Don't use dialog box for questions. --- lisp/gud.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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)) -- 2.39.5