[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gud.el
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gud.el |
Date: |
Wed, 28 May 2003 16:27:47 -0400 |
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???