mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(gud-massage-args): Fix error message syntax.

Browse Source 
(gud-marker-filter, gud-find-file): Likewise.
(gud-display-line): Don't use dialog box for questions.
This commit is contained in:
Richard M. Stallman 1994-06-15 18:05:50 +00:00
parent f9d2d9c0c8
commit 8f6c93e2bb
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/gud.el
View File

@ -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))