changeset 28574:23e11bfcfc21

Change maintainer. Use new backquote syntax.

--- a/lisp/emacs-lisp/trace.el	Thu Apr 13 19:10:40 2000 +0000
+++ b/lisp/emacs-lisp/trace.el	Thu Apr 13 19:12:13 2000 +0000
@@ -3,6 +3,7 @@
 ;; Copyright (C) 1993 Free Software Foundation, Inc.
 
 ;; Author: Hans Chalupsky <[e-mail]>
+;; 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 [e-mail] 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 [e-mail].
-
 ;; 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.