Mercurial > hg > xemacs-beta

comparison lisp/comint/dbx.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents b82b59fe008d
children b9518feda344
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
1 ;;; dbx.el --- run dbx under Emacs 1 ;;; dbx.el --- run dbx under Emacs
2
3 ;; Copyright (C) 1988 Free Software Foundation, Inc. 2 ;; Copyright (C) 1988 Free Software Foundation, Inc.
4 3 ;; Main author Masanobu UMEDA (umerin@flab.fujitsu.junet)
5 ;; Author: Masanobu UMEDA (umerin@flab.fujitsu.junet)
6 ;; Keywords: c, unix, tools, debugging 4 ;; Keywords: c, unix, tools, debugging
7 5
8 ;; This file is part of XEmacs. 6 ;; This file is part of XEmacs.
9 7
10 ;; XEmacs is free software; you can redistribute it and/or modify it 8 ;; XEmacs is free software; you can redistribute it and/or modify it
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of 14 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details. 16 ;; General Public License for more details.
19 17
20 ;; You should have received a copy of the GNU General Public License 18 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the Free 19 ;; along with XEmacs; see the file COPYING. If not, write to the
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 20 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; 02111-1307, USA. 21 ;; Boston, MA 02111-1307, USA.
24
25 ;;; Synched up with: Not in FSF
26
27 ;;; Code:
28 22
29 (require 'comint) 23 (require 'comint)
30 24
31 (defvar dbx-trace-flag nil 25 (defvar dbx-trace-flag nil
32 "Dbx trace switch.") 26 "Dbx trace switch.")
165 (line (save-restriction 159 (line (save-restriction
166 (widen) 160 (widen)
167 (1+ (count-lines 1 (point)))))) 161 (1+ (count-lines 1 (point))))))
168 (process-send-string dbx-process 162 (process-send-string dbx-process
169 (concat "stop at \"" file-name "\":" line "\n")))) 163 (concat "stop at \"" file-name "\":" line "\n"))))
170
171 (provide 'dbx)
172
173 ;;; dbx.el ends here