diff options
| -rw-r--r-- | lisp/cedet/srecode/compile.el | 12 | ||||
| -rw-r--r-- | 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: |