aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2002-09-25 17:45:29 +0000
committerStefan Monnier2002-09-25 17:45:29 +0000
commitf2d2436d43c76b9c8e7cd53342bf40218ae16cae (patch)
tree62c1addbb5ea543a44259c9749a16029d87d6f43
parent67dd9f09622bd5b7611321eadf788814719cea4f (diff)
downloademacs-f2d2436d43c76b9c8e7cd53342bf40218ae16cae.tar.gz
emacs-f2d2436d43c76b9c8e7cd53342bf40218ae16cae.zip
Add/remove spaces.
-rw-r--r--lisp/emacs-lisp/trace.el18
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el
index bb49345b474..b2cbb529809 100644
--- a/lisp/emacs-lisp/trace.el
+++ b/lisp/emacs-lisp/trace.el
@@ -34,7 +34,7 @@
34 34
35;; Introduction: 35;; Introduction:
36;; ============= 36;; =============
37;; A simple trace package that utilizes advice.el. It generates trace 37;; A simple trace package that utilizes advice.el. It generates trace
38;; information in a Lisp-style fashion and inserts it into a trace output 38;; information in a Lisp-style fashion and inserts it into a trace output
39;; buffer. Tracing can be done in the background (or silently) so that 39;; buffer. Tracing can be done in the background (or silently) so that
40;; generation of trace output won't interfere with what you are currently 40;; generation of trace output won't interfere with what you are currently
@@ -87,7 +87,7 @@
87;; (if (= n 0) 1 87;; (if (= n 0) 1
88;; (* n (fact (1- n))))) 88;; (* n (fact (1- n)))))
89;; fact 89;; fact
90;; 90;;
91;; (trace-function 'fact) 91;; (trace-function 'fact)
92;; fact 92;; fact
93;; 93;;
@@ -111,11 +111,11 @@
111;; 111;;
112;; 112;;
113;; (defun ack (x y z) 113;; (defun ack (x y z)
114;; (if (= x 0) 114;; (if (= x 0)
115;; (+ y z) 115;; (+ y z)
116;; (if (and (<= x 2) (= z 0)) 116;; (if (and (<= x 2) (= z 0))
117;; (1- x) 117;; (1- x)
118;; (if (and (> x 2) (= z 0)) 118;; (if (and (> x 2) (= z 0))
119;; y 119;; y
120;; (ack (1- x) y (ack x y (1- z))))))) 120;; (ack (1- x) y (ack x y (1- z)))))))
121;; ack 121;; ack
@@ -128,7 +128,7 @@
128;; (ack 3 3 1) 128;; (ack 3 3 1)
129;; 27 129;; 27
130;; 130;;
131;; 131;;
132;; The following does something similar to the functionality of the package 132;; The following does something similar to the functionality of the package
133;; log-message.el by Robert Potter, which is giving you a chance to look at 133;; log-message.el by Robert Potter, which is giving you a chance to look at
134;; messages that might have whizzed by too quickly (you won't see subr 134;; messages that might have whizzed by too quickly (you won't see subr
@@ -264,7 +264,7 @@
264(defun trace-function (function &optional buffer) 264(defun trace-function (function &optional buffer)
265 "Traces FUNCTION with trace output going to BUFFER. 265 "Traces FUNCTION with trace output going to BUFFER.
266For every call of FUNCTION Lisp-style trace messages that display argument 266For every call of FUNCTION Lisp-style trace messages that display argument
267and return values will be inserted into BUFFER. This function generates the 267and return values will be inserted into BUFFER. This function generates the
268trace advice for FUNCTION and activates it together with any other advice 268trace advice for FUNCTION and activates it together with any other advice
269there might be!! The trace BUFFER will popup whenever FUNCTION is called. 269there might be!! The trace BUFFER will popup whenever FUNCTION is called.
270Do not use this to trace functions that switch buffers or do any other 270Do not use this to trace functions that switch buffers or do any other
@@ -279,7 +279,7 @@ display oriented stuff, use `trace-function-background' instead."
279(defun trace-function-background (function &optional buffer) 279(defun trace-function-background (function &optional buffer)
280 "Traces FUNCTION with trace output going quietly to BUFFER. 280 "Traces FUNCTION with trace output going quietly to BUFFER.
281For every call of FUNCTION Lisp-style trace messages that display argument 281For every call of FUNCTION Lisp-style trace messages that display argument
282and return values will be inserted into BUFFER. This function generates the 282and return values will be inserted into BUFFER. This function generates the
283trace advice for FUNCTION and activates it together with any other advice 283trace advice for FUNCTION and activates it together with any other advice
284there might be!! Trace output will quietly go to BUFFER without changing 284there might be!! Trace output will quietly go to BUFFER without changing
285the window or buffer configuration at all." 285the window or buffer configuration at all."
@@ -293,7 +293,7 @@ the window or buffer configuration at all."
293(defun untrace-function (function) 293(defun untrace-function (function)
294 "Untraces FUNCTION and possibly activates all remaining advice. 294 "Untraces FUNCTION and possibly activates all remaining advice.
295Activation is performed with `ad-update', hence remaining advice will get 295Activation is performed with `ad-update', hence remaining advice will get
296activated only if the advice of FUNCTION is currently active. If FUNCTION 296activated only if the advice of FUNCTION is currently active. If FUNCTION
297was not traced this is a noop." 297was not traced this is a noop."
298 (interactive 298 (interactive
299 (list (ad-read-advised-function "Untrace function: " 'trace-is-traced))) 299 (list (ad-read-advised-function "Untrace function: " 'trace-is-traced)))