diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-14 15:29:17 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-14 15:29:17 +0200 |
| commit | 98df06c19ea3bb20f116c3776dc339a66c442ff5 (patch) | |
| tree | ece16a6d07a7b91ef043cc0f01d949b7872d3517 /lisp/cedet/srecode/insert.el | |
| parent | 595e12c2da7b5053f56f57ba59a6156ac239bbf0 (diff) | |
| download | emacs-98df06c19ea3bb20f116c3776dc339a66c442ff5.tar.gz emacs-98df06c19ea3bb20f116c3776dc339a66c442ff5.tar.bz2 emacs-98df06c19ea3bb20f116c3776dc339a66c442ff5.zip | |
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.
Diffstat (limited to 'lisp/cedet/srecode/insert.el')
| -rw-r--r-- | lisp/cedet/srecode/insert.el | 13 |
1 files changed, 13 insertions, 0 deletions
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: |