diff options
| author | Dave Love <fx@gnu.org> | 2000-04-13 19:12:13 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-04-13 19:12:13 +0000 |
| commit | aa455f0b87f4c1a5ba7b7f7b6d2352938f420bb4 (patch) | |
| tree | ec5fc4b619239464657c6b921bda14e68dc4d005 /lisp/emacs-lisp/trace.el | |
| parent | 45e0dd95ba0f710e5150c403f144a85f7f95c91d (diff) | |
| download | emacs-aa455f0b87f4c1a5ba7b7f7b6d2352938f420bb4.tar.gz emacs-aa455f0b87f4c1a5ba7b7f7b6d2352938f420bb4.tar.bz2 emacs-aa455f0b87f4c1a5ba7b7f7b6d2352938f420bb4.zip | |
Change maintainer. Use new backquote
syntax.
Diffstat (limited to 'lisp/emacs-lisp/trace.el')
| -rw-r--r-- | lisp/emacs-lisp/trace.el | 83 |
1 files changed, 37 insertions, 46 deletions
diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el index d066f7d82f3..bb49345b474 100644 --- a/lisp/emacs-lisp/trace.el +++ b/lisp/emacs-lisp/trace.el @@ -3,6 +3,7 @@ ;; Copyright (C) 1993 Free Software Foundation, Inc. ;; Author: Hans Chalupsky <hans@cs.buffalo.edu> +;; Maintainer: FSF ;; Created: 15 Dec 1992 ;; Keywords: tools, lisp @@ -39,12 +40,6 @@ ;; generation of trace output won't interfere with what you are currently ;; doing. -;; How to get the latest trace.el: -;; =============================== -;; You can get the latest version of this file either via anonymous ftp from -;; ftp.cs.buffalo.edu (128.205.32.9) with pathname /pub/Emacs/trace.el, -;; or send email to hans@cs.buffalo.edu and I'll mail it to you. - ;; Requirement: ;; ============ ;; trace.el needs advice.el version 2.0 or later which you can get from the @@ -73,10 +68,6 @@ ;; ;; or explicitly load it with (require 'trace) or (load "trace"). -;; Comments, suggestions, bug reports -;; ================================== -;; are strongly appreciated, please email them to hans@cs.buffalo.edu. - ;; Usage: ;; ====== ;; - To trace a function say `M-x trace-function' which will ask you for the @@ -221,42 +212,42 @@ (ad-make-advice trace-advice-name nil t (cond (background - (` (advice - lambda () - (let ((trace-level (1+ trace-level)) - (trace-buffer (get-buffer-create (, buffer)))) - (save-excursion - (set-buffer trace-buffer) - (goto-char (point-max)) - ;; Insert a separator from previous trace output: - (if (= trace-level 1) (insert trace-separator)) - (insert - (trace-entry-message - '(, function) trace-level ad-arg-bindings))) - ad-do-it - (save-excursion - (set-buffer trace-buffer) - (goto-char (point-max)) - (insert - (trace-exit-message - '(, function) trace-level ad-return-value))))))) - (t (` (advice - lambda () - (let ((trace-level (1+ trace-level)) - (trace-buffer (get-buffer-create (, buffer)))) - (pop-to-buffer trace-buffer) - (goto-char (point-max)) - ;; Insert a separator from previous trace output: - (if (= trace-level 1) (insert trace-separator)) - (insert - (trace-entry-message - '(, function) trace-level ad-arg-bindings)) - ad-do-it - (pop-to-buffer trace-buffer) - (goto-char (point-max)) - (insert - (trace-exit-message - '(, function) trace-level ad-return-value))))))))) + `(advice + lambda () + (let ((trace-level (1+ trace-level)) + (trace-buffer (get-buffer-create ,buffer))) + (save-excursion + (set-buffer trace-buffer) + (goto-char (point-max)) + ;; Insert a separator from previous trace output: + (if (= trace-level 1) (insert trace-separator)) + (insert + (trace-entry-message + ',function trace-level ad-arg-bindings))) + ad-do-it + (save-excursion + (set-buffer trace-buffer) + (goto-char (point-max)) + (insert + (trace-exit-message + ',function trace-level ad-return-value)))))) + (t `(advice + lambda () + (let ((trace-level (1+ trace-level)) + (trace-buffer (get-buffer-create ,buffer))) + (pop-to-buffer trace-buffer) + (goto-char (point-max)) + ;; Insert a separator from previous trace output: + (if (= trace-level 1) (insert trace-separator)) + (insert + (trace-entry-message + ',function trace-level ad-arg-bindings)) + ad-do-it + (pop-to-buffer trace-buffer) + (goto-char (point-max)) + (insert + (trace-exit-message + ',function trace-level ad-return-value)))))))) (defun trace-function-internal (function buffer background) ;; Adds trace advice for FUNCTION and activates it. |