X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/a6de3d1a7347048f6ef74160583203fbaf323b6b..0e963201d03d9229bb8ac4323291d2b0119526ed:/lisp/cedet/semantic/tag-write.el?ds=sidebyside

diff --git a/lisp/cedet/semantic/tag-write.el b/lisp/cedet/semantic/tag-write.el
index fb27e54207..38dafd52f7 100644
--- a/lisp/cedet/semantic/tag-write.el
+++ b/lisp/cedet/semantic/tag-write.el
@@ -1,6 +1,6 @@
-;;; tag-write.el --- Write tags to a text stream
+;;; semantic/tag-write.el --- Write tags to a text stream
 
-;; Copyright (C) 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2008-2016 Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <eric@siege-engine.com>
 
@@ -28,10 +28,10 @@
 ;; to share tags between processes as well.
 ;;
 ;; As a bonus, these routines will also validate the tag structure, and make sure
-;; that they conform to good semantic tag hygene.
+;; that they conform to good semantic tag hygiene.
 ;;
 
-(require 'semantic/tag)
+(require 'semantic)
 
 ;;; Code:
 (defun semantic-tag-write-one-tag (tag &optional indent)
@@ -41,12 +41,12 @@ INDENT is the amount of indentation to use for this tag."
     (signal 'wrong-type-argument (list tag 'semantic-tag-p)))
   (when (not indent) (setq indent 0))
   ;(princ (make-string indent ? ))
-  (princ "(\"")
+  (princ "(")
   ;; Base parts
   (let ((name (semantic-tag-name tag))
 	(class (semantic-tag-class tag)))
-    (princ name)
-    (princ "\" ")
+    (prin1 name)
+    (princ " ")
     (princ (symbol-name class))
     )
   (let ((attr (semantic-tag-attributes tag))
@@ -158,6 +158,7 @@ Items that are long lists of tags may need their own line."
 	(princ str)))))
   )
 ;;; EIEIO USAGE
+;;;###autoload
 (defun semantic-tag-write-list-slot-value (value)
   "Write out the VALUE of a slot for EIEIO.
 The VALUE is a list of tags."
@@ -167,20 +168,11 @@ The VALUE is a list of tags."
     (semantic-tag-write-tag-list value 10 t)
     ))
 
-;;; TESTING.
-
-(defun semantic-tag-write-test ()
-  "Test the semantic tag writer against the tag under point."
-  (interactive)
-  (with-output-to-temp-buffer "*Tag Write Test*"
-    (semantic-tag-write-one-tag (semantic-current-tag))))
-
-(defun semantic-tag-write-list-test ()
-  "Test the semantic tag writer against the tag under point."
-  (interactive)
-  (with-output-to-temp-buffer "*Tag Write Test*"
-    (semantic-tag-write-tag-list (semantic-fetch-tags))))
+(provide 'semantic/tag-write)
 
+;; Local variables:
+;; generated-autoload-file: "loaddefs.el"
+;; generated-autoload-load-name: "semantic/tag-write"
+;; End:
 
-(provide 'semantic/tag-write)
-;;; semantic-tag-write.el ends here
+;;; semantic/tag-write.el ends here