From f64303a3c887b66edf67f30e2fe788e8c8477796 Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Sun, 25 Jan 2009 11:57:27 +0100 Subject: [PATCH] FUEL: Better $snippet handling. --- misc/fuel/fuel-markup.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el index 173248feb7..7a8fa0c234 100644 --- a/misc/fuel/fuel-markup.el +++ b/misc/fuel/fuel-markup.el @@ -156,7 +156,7 @@ (defvar fuel-markup--maybe-nl nil)) (defun fuel-markup--print (e) - (cond ((null e)) + (cond ((null e) (insert "f")) ((stringp e) (fuel-markup--insert-string e)) ((and (listp e) (symbolp (car e)) (assoc (car e) fuel-markup--printers)) @@ -253,8 +253,12 @@ (insert (cadr e)))) (defun fuel-markup--snippet (e) - (let ((snip (format "%s" (cadr e)))) - (insert (fuel-font-lock--factor-str snip)))) + (insert (mapconcat '(lambda (s) + (if (stringp s) + (fuel-font-lock--factor-str s) + (fuel-markup--print-str s))) + (cdr e) + " "))) (defun fuel-markup--code (e) (fuel-markup--insert-nl-if-nb)