[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112281: * lisp/emacs-lisp/trace.el (
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112281: * lisp/emacs-lisp/trace.el (trace-values): New function. |
Date: |
Sat, 13 Apr 2013 21:02:29 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112281: * lisp/emacs-lisp/trace.el (trace-values): New function.,
Stefan Monnier <=