srecode-inserter-prin-example compilation fix

* lisp/cedet/srecode/insert.el (srecode-inserter-prin-example):
Move prin1 example to file that defines the structure it prints.

diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el
index ff640c020f361bedbc27401b957ce837c8e103e0..586ed0ab0e83298ae6af93d64097bbe9f251e094 100644 (file)
--- a/lisp/cedet/srecode/compile.el
+++ b/lisp/cedet/srecode/compile.el
@@ -131,18 +131,6 @@ STATE is the current compilation state."
   "For the template inserter INS, apply information from STATE."
   nil)
 
-(cl-defmethod srecode-inserter-prin-example ((ins (subclass srecode-template-inserter))
-                                                 escape-start escape-end)
-  "Insert an example using inserter INS.
-Arguments ESCAPE-START and ESCAPE-END are the current escape sequences in use."
-  (princ "   ")
-  (princ escape-start)
-  (when (and (slot-exists-p ins 'key) (oref ins key))
-    (princ (format "%c" (oref ins key))))
-  (princ "VARNAME")
-  (princ escape-end)
-  (terpri)
-  )
 
 
 ;;; Compile State

diff --git a/lisp/cedet/srecode/insert.el b/lisp/cedet/srecode/insert.el
index d23597ec47904799584a402c83bd2f604ebc6bc6..53518cd20dd22eb90b4d7076d8301d523a47a0be 100644 (file)
--- a/lisp/cedet/srecode/insert.el
+++ b/lisp/cedet/srecode/insert.el
@@ -1063,6 +1063,19 @@ template where a ^ inserter occurs."
     ;; place.
     (cl-call-next-method)))
 
+(cl-defmethod srecode-inserter-prin-example ((ins (subclass srecode-template-inserter))
+                                                 escape-start escape-end)
+  "Insert an example using inserter INS.
+Arguments ESCAPE-START and ESCAPE-END are the current escape sequences in use."
+  (princ "   ")
+  (princ escape-start)
+  (when (and (slot-exists-p ins 'key) (oref ins key))
+    (princ (format "%c" (oref ins key))))
+  (princ "VARNAME")
+  (princ escape-end)
+  (terpri)
+  )
+
 (provide 'srecode/insert)
 
 ;; Local variables: