Mercurial > hg > xemacs-beta

comparison lisp/utils/trace.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details. 19 ;; General Public License for more details.
20 20
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free 22 ;; along with XEmacs; see the file COPYING. If not, write to the Free
23 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
24 24 ;; 02111-1307, USA.
25 ;;; Synched up with: FSF 19.30. 25
26 ;;; Synched up with: FSF 19.34.
26 27
27 ;; LCD Archive Entry: 28 ;; LCD Archive Entry:
28 ;; trace|Hans Chalupsky|hans@cs.buffalo.edu| 29 ;; trace|Hans Chalupsky|hans@cs.buffalo.edu|
29 ;; Tracing facility for Emacs Lisp functions| 30 ;; Tracing facility for Emacs Lisp functions|
30 ;; 1993/05/18 00:41:16|2.0|~/packages/trace.el.Z| 31 ;; 1993/05/18 00:41:16|2.0|~/packages/trace.el.Z|
163 164
164 ;;; Code: 165 ;;; Code:
165 166
166 (require 'advice) 167 (require 'advice)
167 168
169 ;; XEmacs change (leave the version # in place)
168 (defconst trace-version "2.0") 170 (defconst trace-version "2.0")
169 171
170 ;;;###autoload 172 ;;;###autoload
171 (defvar trace-buffer "*trace-output*" 173 (defvar trace-buffer "*trace-output*"
172 "*Trace output will by default go to that buffer.") 174 "*Trace output will by default go to that buffer.")