Commit 830aed4d authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/trace.el (trace-values): New function.

parent a829b0dc
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.
......
......@@ -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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment