[Emacs-diffs] Changes to emacs/lisp/gud.el

[Nick Roberts]

Index: emacs/lisp/gud.el
diff -c emacs/lisp/gud.el:1.177 emacs/lisp/gud.el:1.178
*** emacs/lisp/gud.el:1.177     Mon May 26 17:56:41 2003
--- emacs/lisp/gud.el   Wed May 28 16:27:47 2003
***************
*** 578,584 ****
  (defun gud-gdb-goto-stackframe (text token indent)
    "Goto the stackframe described by TEXT, TOKEN, and INDENT."
    (speedbar-with-attached-buffer
!    (gud-basic-call (concat "frame " (nth 1 token)))
     (sit-for 1)))
  
  (defvar gud-gdb-fetched-stack-frame nil
--- 578,584 ----
  (defun gud-gdb-goto-stackframe (text token indent)
    "Goto the stackframe described by TEXT, TOKEN, and INDENT."
    (speedbar-with-attached-buffer
!    (gud-basic-call (concat "server frame " (nth 1 token)))
     (sit-for 1)))
  
  (defvar gud-gdb-fetched-stack-frame nil
***************
*** 599,605 ****
    "Extract the current stack frame out of the GUD GDB BUFFER."
    (let ((newlst nil)
        (fetched-stack-frame-list
!        (gud-gdb-run-command-fetch-lines "backtrace" buffer)))
      (if (and (car fetched-stack-frame-list)
             (string-match "No stack" (car fetched-stack-frame-list)))
        ;; Go into some other mode???
--- 599,605 ----
    "Extract the current stack frame out of the GUD GDB BUFFER."
    (let ((newlst nil)
        (fetched-stack-frame-list
!        (gud-gdb-run-command-fetch-lines "server backtrace" buffer)))
      (if (and (car fetched-stack-frame-list)
             (string-match "No stack" (car fetched-stack-frame-list)))
        ;; Go into some other mode???