Mercurial > emacs
changeset 27833:d31e5fcf98d7
(gud-jdb-build-class-source-alist): Prepend space to scratch buffer
name.
(gud-format-command): Use int-to-string in ?l case. Simplify slightly.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Wed, 23 Feb 2000 22:17:05 +0000 |
| parents | 866f7a6b82b3 |
| children | b5bc73b0b33e |
| files | lisp/gud.el |
| diffstat | 1 files changed, 6 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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)))