[Emacs-diffs] /srv/bzr/emacs/trunk r112281: * lisp/emacs-lisp/trace.el (trace-values): New function.

[Stefan Monnier]

------------------------------------------------------------
revno: 112281
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sat 2013-04-13 21:02:29 -0400
message:
  * lisp/emacs-lisp/trace.el (trace-values): New function.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/trace.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-14 00:59:48 +0000
+++ b/lisp/ChangeLog    2013-04-14 01:02:29 +0000
@@ -1,5 +1,7 @@
 2013-04-14  Stefan Monnier  <address@hidden>
 
+       * 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.

=== modified file 'lisp/emacs-lisp/trace.el'
--- a/lisp/emacs-lisp/trace.el  2013-01-16 19:06:15 +0000
+++ b/lisp/emacs-lisp/trace.el  2013-04-14 01:02:29 +0000
@@ -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,