# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 951344225 0
# Node ID d31e5fcf98d7bc19b87e883b18c6222a951ff019
# Parent  866f7a6b82b30a5a203439201f7263058dde5365
(gud-jdb-build-class-source-alist): Prepend space to scratch buffer
name.
(gud-format-command): Use int-to-string in ?l case.  Simplify slightly.

diff -r 866f7a6b82b3 -r d31e5fcf98d7 lisp/gud.el
--- a/lisp/gud.el	Wed Feb 23 20:44:04 2000 +0000
+++ b/lisp/gud.el	Wed Feb 23 22:17:05 2000 +0000
@@ -1761,7 +1761,7 @@
 ;; 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 @@
 	  (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)))