Function: srecode-insert-show-error-report

srecode-insert-show-error-report is a byte-compiled function defined in insert.el.gz.

Signature

(srecode-insert-show-error-report DICTIONARY FORMAT &rest ARGS)

Documentation

Display an error report based on DICTIONARY, FORMAT and ARGS.

This is intended to diagnose problems with failed template insertions.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/srecode/insert.el.gz
(defun srecode-insert-show-error-report (dictionary format &rest args)
  "Display an error report based on DICTIONARY, FORMAT and ARGS.
This is intended to diagnose problems with failed template
insertions."
  (with-current-buffer (data-debug-new-buffer "*SRECODE INSERTION ERROR*")
    (erase-buffer)
    ;; Insert the stack of templates that are currently being
    ;; inserted.
    (insert (propertize "Template Stack" 'face '(:weight bold))
	    (propertize " (most recent at bottom)" 'face '(:slant italic))
	    ":\n")
    (data-debug-insert-stuff-list
     (reverse (oref-default 'srecode-template active)) "> ")
    ;; Show the current dictionary.
    (insert (propertize "Dictionary" 'face '(:weight bold)) "\n")
    (data-debug-insert-thing dictionary "" "> ")
    ;; Show the error message.
    (insert (propertize "Error" 'face '(:weight bold)) "\n")
    (insert (apply #'format-message format args))
    (pop-to-buffer (current-buffer))))