emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] scratch/merge-cedet-tests 5cc7300 264/316: Synchronize ced


From: Edward John Steere
Subject: [Emacs-diffs] scratch/merge-cedet-tests 5cc7300 264/316: Synchronize cedet/semantic with Emacs.
Date: Sat, 28 Jan 2017 09:10:09 +0000 (UTC)

branch: scratch/merge-cedet-tests
commit 5cc730057d2a5397a59150d734245a0d392c0de1
Author: xscript <address@hidden>
Commit: Edward John Steere <address@hidden>

    Synchronize cedet/semantic with Emacs.
---
 test/manual/cedet/cedet/semantic/format.el |   22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/test/manual/cedet/cedet/semantic/format.el 
b/test/manual/cedet/cedet/semantic/format.el
new file mode 100644
index 0000000..b807d14
--- /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))))
+      ))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]