From b2e60475383b5efd691b2e591e20f31df9d5f412 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 23 Feb 2000 22:17:05 +0000 Subject: (gud-jdb-build-class-source-alist): Prepend space to scratch buffer name. (gud-format-command): Use int-to-string in ?l case. Simplify slightly. --- lisp/gud.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/lisp/gud.el b/lisp/gud.el index 2cddf1a3f5..67aa59c7b8 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -1761,7 +1761,7 @@ The file names should be absolute, or relative to the current directory.") ;; holding their definitions. SOURCES holds a list of all the source ;; files to examine. (defun gud-jdb-build-class-source-alist (sources) - (setq gud-jdb-analysis-buffer (get-buffer-create "*gud-jdb-scratch*")) + (setq gud-jdb-analysis-buffer (get-buffer-create " *gud-jdb-scratch*")) (prog1 (apply 'nconc @@ -2326,18 +2326,17 @@ Obeying it means displaying in another window the specified file and line." (setq subst (if insource (save-excursion (beginning-of-line) - (save-restriction (widen) - (1+ (count-lines 1 (point))))) + (save-restriction + (widen) + (int-to-string (1+ (count-lines 1 (point)))))) (cdr frame)))) ((eq key ?e) (setq subst (gud-find-c-expr))) ((eq key ?a) (setq subst (gud-read-address))) ((eq key ?p) - (setq subst (if arg (int-to-string arg) "")))) - (setq result (concat result - (substring str (match-beginning 1) (match-end 1)) - subst))) + (setq subst (if arg (int-to-string arg))))) + (setq result (concat result (match-string 1 str) subst))) (setq str (substring str (match-end 2)))) ;; There might be text left in STR when the loop ends. (concat result str))) -- cgit v1.2.3