Function: forms--debug

forms--debug is a byte-compiled function defined in forms.el.gz.

Signature

(forms--debug &rest ARGS)

Documentation

Internal debugging routine.

Source Code

;; Defined in /usr/src/emacs/lisp/forms.el.gz
(defun forms--debug (&rest args)
  "Internal debugging routine."
  (if forms--debug
      (let ((ret
	     (mapconcat
	      (lambda (el)
		(if (stringp el) el
		  (concat (prin1-to-string el) " = "
                          (if (boundp el)
                              (prin1-to-string (symbol-value el))
                            "<unbound>")
                          "\n"
                          (if (fboundp el)
                              (concat (prin1-to-string (symbol-function el))
				      "\n")))))
	      args "")))
	(with-current-buffer (get-buffer-create "*forms-mode debug*")
	  (if (zerop (buffer-size))
	      (emacs-lisp-mode))
	  (goto-char (point-max))
	  (insert ret)))))