Mercurial > hg > xemacs-beta

comparison lisp/comint/dbx.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 131b0175ea99
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; dbx.el --- run dbx under Emacs 1 ;;; dbx.el --- run dbx under Emacs
2
2 ;; Copyright (C) 1988 Free Software Foundation, Inc. 3 ;; Copyright (C) 1988 Free Software Foundation, Inc.
3 ;; Main author Masanobu UMEDA (umerin@flab.fujitsu.junet) 4
5 ;; Author: Masanobu UMEDA (umerin@flab.fujitsu.junet)
4 ;; Keywords: c, unix, tools, debugging 6 ;; Keywords: c, unix, tools, debugging
5 7
6 ;; This file is part of XEmacs. 8 ;; This file is part of XEmacs.
7 9
8 ;; XEmacs is free software; you can redistribute it and/or modify it 10 ;; XEmacs is free software; you can redistribute it and/or modify it
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 ;; General Public License for more details. 18 ;; General Public License for more details.
17 19
18 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
19 ;; along with XEmacs; see the file COPYING. If not, write to the Free 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
20 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA.
24
25 ;;; Synched up with: Not in FSF
26
27 ;;; Code:
21 28
22 (require 'comint) 29 (require 'comint)
23 30
24 (defvar dbx-trace-flag nil 31 (defvar dbx-trace-flag nil
25 "Dbx trace switch.") 32 "Dbx trace switch.")
158 (line (save-restriction 165 (line (save-restriction
159 (widen) 166 (widen)
160 (1+ (count-lines 1 (point)))))) 167 (1+ (count-lines 1 (point))))))
161 (process-send-string dbx-process 168 (process-send-string dbx-process
162 (concat "stop at \"" file-name "\":" line "\n")))) 169 (concat "stop at \"" file-name "\":" line "\n"))))
170
171 (provide 'dbx)
172
173 ;;; dbx.el ends here