From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 14 Jun 2019 13:29:17 +0000 (+0200)
Subject: srecode-inserter-prin-example compilation fix
X-Git-Tag: emacs-27.0.90~2542
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98df06c19ea3bb20f116c3776dc339a66c442ff5;p=emacs.git

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 ff640c020f3..586ed0ab0e8 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 d23597ec479..53518cd20dd 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: