From 98df06c19ea3bb20f116c3776dc339a66c442ff5 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 14 Jun 2019 15:29:17 +0200 Subject: [PATCH] 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 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: -- 2.39.5