diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-13 21:02:29 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-04-13 21:02:29 -0400 |
| commit | 830aed4d5e06af8644db9514f1dd4f59e1026499 (patch) | |
| tree | aa83540d57b7cce08880016eb87811ce3a958a6c /lisp | |
| parent | a829b0dc898972de4b24b1a9a807f529ddd7b818 (diff) | |
| download | emacs-830aed4d5e06af8644db9514f1dd4f59e1026499.tar.gz | |
* lisp/emacs-lisp/trace.el (trace-values): New function.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/trace.el | 11 |
2 files changed, 13 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d111d40dab2..3d92d79fd0a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2013-04-14 Stefan Monnier <monnier@iro.umontreal.ca> + * emacs-lisp/trace.el (trace-values): New function. + * files.el: Allow : in local variables (bug#14089). (hack-local-variable-regexp): New var. (hack-local-variables-prop-line, hack-local-variables): Use it. diff --git a/lisp/emacs-lisp/trace.el b/lisp/emacs-lisp/trace.el index 09c4969cf18..fce8643923f 100644 --- a/lisp/emacs-lisp/trace.el +++ b/lisp/emacs-lisp/trace.el @@ -157,6 +157,17 @@ (defvar inhibit-trace nil "If non-nil, all tracing is temporarily inhibited.") +;;;###autoload +(defun trace-values (&rest values) + "Helper function to get internal values. +You can call this function to add internal values in the trace buffer." + (unless inhibit-trace + (with-current-buffer trace-buffer + (goto-char (point-max)) + (insert + (trace-entry-message + 'trace-values trace-level values ""))))) + (defun trace-entry-message (function level args context) "Generate a string that describes that FUNCTION has been entered. LEVEL is the trace level, ARGS is the list of arguments passed to FUNCTION, |