[Emacs-diffs] master 98df06c 2/7: srecode-inserter-prin-example compilation fix

[Lars Ingebrigtsen]

branch: master
commit 98df06c19ea3bb20f116c3776dc339a66c442ff5
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/cedet/srecode/compile.el | 12 ------------
 lisp/cedet/srecode/insert.el  | 13 +++++++++++++
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/lisp/cedet/srecode/compile.el b/lisp/cedet/srecode/compile.el
index ff640c0..586ed0a 100644
--- 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 d23597e..53518cd 100644
--- 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: