Mercurial > hg > xemacs-beta

comparison lisp/comint/gdb.el @ 72:b9518feda344 r20-0b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b31
author cvs
date Mon, 13 Aug 2007 09:03:46 +0200
parents 131b0175ea99
children c7528f8e288d
comparison
equal deleted inserted replaced
71:bae944334fa4 72:b9518feda344
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details. 20 ;; General Public License for more details.
21 21
22 ;; You should have received a copy of the GNU General Public License 22 ;; You should have received a copy of the GNU General Public License
23 ;; along with XEmacs; see the file COPYING. If not, write to the 23 ;; along with XEmacs; see the file COPYING. If not, write to the Free
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 24 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
25 ;; Boston, MA 02111-1307, USA. 25 ;; 02111-1307, USA.
26
27 ;;; Synched up with: Not in FSF
28
29 ;;; Commentary:
26 30
27 ;; Description of GDB interface: 31 ;; Description of GDB interface:
28 32
29 ;; A facility is provided for the simultaneous display of the source code 33 ;; A facility is provided for the simultaneous display of the source code
30 ;; in one window, while using gdb to step through a function in the 34 ;; in one window, while using gdb to step through a function in the
55 ;; into one of the frames, it would display the position corresponding to 59 ;; into one of the frames, it would display the position corresponding to
56 ;; that frame. 60 ;; that frame.
57 61
58 ;; gdb-display-frame is invoked automatically when a filename-and-line-number 62 ;; gdb-display-frame is invoked automatically when a filename-and-line-number
59 ;; appears in the output. 63 ;; appears in the output.
64
65 ;;; Code:
60 66
61 (require 'comint) 67 (require 'comint)
62 (require 'shell) 68 (require 'shell)
63 69
64 (condition-case nil 70 (condition-case nil
663 (message (car gdb-last-frame)) 669 (message (car gdb-last-frame))
664 (set-buffer (find-file-noselect (car gdb-last-frame))) 670 (set-buffer (find-file-noselect (car gdb-last-frame)))
665 (gdb-clear))) 671 (gdb-clear)))
666 672
667 (provide 'gdb) 673 (provide 'gdb)
674
675 ;;; gdb.el ends here