From 5cc730057d2a5397a59150d734245a0d392c0de1 Mon Sep 17 00:00:00 2001 From: xscript Date: Sun, 15 May 2011 22:16:47 +0200 Subject: [PATCH] Synchronize cedet/semantic with Emacs. --- test/manual/cedet/cedet/semantic/format.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 test/manual/cedet/cedet/semantic/format.el diff --git a/test/manual/cedet/cedet/semantic/format.el b/test/manual/cedet/cedet/semantic/format.el new file mode 100644 index 00000000000..b807d141783 --- /dev/null +++ b/test/manual/cedet/cedet/semantic/format.el @@ -0,0 +1,22 @@ +(defun semantic-test-all-format-tag-functions (&optional arg) + "Test all outputs from `semantic-format-tag-functions'. +Output is generated from the function under `point'. +Optional argument ARG specifies not to use color." + (interactive "P") + (semantic-fetch-tags) + (let* ((tag (semantic-current-tag)) + (par (semantic-current-tag-parent)) + (fns semantic-format-tag-functions)) + (with-output-to-temp-buffer "*format-tag*" + (princ "Tag->format function tests:") + (while fns + (princ "\n") + (princ (car fns)) + (princ ":\n ") + (let ((s (funcall (car fns) tag par (not arg)))) + (save-excursion + (set-buffer "*format-tag*") + (goto-char (point-max)) + (insert s))) + (setq fns (cdr fns)))) + )) -- 2.39.5