Mercurial > hg > xemacs-beta

comparison lisp/comint/gdb.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children bcdc7deadc19
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
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 Free 23 ;; along with XEmacs; see the file COPYING. If not, write to the Free
24 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 24 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
25 ;; 02111-1307, USA.
26
27 ;;; Synched up with: Not in FSF
28
29 ;;; Commentary:
25 30
26 ;; Description of GDB interface: 31 ;; Description of GDB interface:
27 32
28 ;; 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
29 ;; 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
54 ;; 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
55 ;; that frame. 60 ;; that frame.
56 61
57 ;; 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
58 ;; appears in the output. 63 ;; appears in the output.
64
65 ;;; Code:
59 66
60 (require 'comint) 67 (require 'comint)
61 (require 'shell) 68 (require 'shell)
62 69
63 (condition-case nil 70 (condition-case nil
662 (message (car gdb-last-frame)) 669 (message (car gdb-last-frame))
663 (set-buffer (find-file-noselect (car gdb-last-frame))) 670 (set-buffer (find-file-noselect (car gdb-last-frame)))
664 (gdb-clear))) 671 (gdb-clear)))
665 672
666 (provide 'gdb) 673 (provide 'gdb)
674
675 ;;; gdb.el ends here