diff options
| author | Stefan Monnier | 2002-09-25 17:45:29 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2002-09-25 17:45:29 +0000 |
| commit | f2d2436d43c76b9c8e7cd53342bf40218ae16cae (patch) | |
| tree | 62c1addbb5ea543a44259c9749a16029d87d6f43 | |
| parent | 67dd9f09622bd5b7611321eadf788814719cea4f (diff) | |
| download | emacs-f2d2436d43c76b9c8e7cd53342bf40218ae16cae.tar.gz emacs-f2d2436d43c76b9c8e7cd53342bf40218ae16cae.zip | |
Add/remove spaces.
| -rw-r--r-- | lisp/emacs-lisp/trace.el | 18 |
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. |
| 266 | For every call of FUNCTION Lisp-style trace messages that display argument | 266 | For every call of FUNCTION Lisp-style trace messages that display argument |
| 267 | and return values will be inserted into BUFFER. This function generates the | 267 | and return values will be inserted into BUFFER. This function generates the |
| 268 | trace advice for FUNCTION and activates it together with any other advice | 268 | trace advice for FUNCTION and activates it together with any other advice |
| 269 | there might be!! The trace BUFFER will popup whenever FUNCTION is called. | 269 | there might be!! The trace BUFFER will popup whenever FUNCTION is called. |
| 270 | Do not use this to trace functions that switch buffers or do any other | 270 | Do 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. |
| 281 | For every call of FUNCTION Lisp-style trace messages that display argument | 281 | For every call of FUNCTION Lisp-style trace messages that display argument |
| 282 | and return values will be inserted into BUFFER. This function generates the | 282 | and return values will be inserted into BUFFER. This function generates the |
| 283 | trace advice for FUNCTION and activates it together with any other advice | 283 | trace advice for FUNCTION and activates it together with any other advice |
| 284 | there might be!! Trace output will quietly go to BUFFER without changing | 284 | there might be!! Trace output will quietly go to BUFFER without changing |
| 285 | the window or buffer configuration at all." | 285 | the 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. |
| 295 | Activation is performed with `ad-update', hence remaining advice will get | 295 | Activation is performed with `ad-update', hence remaining advice will get |
| 296 | activated only if the advice of FUNCTION is currently active. If FUNCTION | 296 | activated only if the advice of FUNCTION is currently active. If FUNCTION |
| 297 | was not traced this is a noop." | 297 | was 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))) |