Re: [emacs-wiki-discuss] [bug #5044] lisp executes only first statement

[Jim Ottaway]

>>>>> anonymous  <address@hidden> writes:

> Follow-up Comment #1, bug #5044 (project muse-el):

> This can be worked around by enclosing the statements in (progn ...).

> This one might be hard to fix.

> -- Michael Olson

What about:

(defun muse-colors-lisp-tag (beg end)
  (muse-unhighlight-region beg end)
  (add-text-properties
   beg end
   (list 'font-lock-multiline t
         'display (muse-eval-lisp
                   (concat "(progn "
                           (buffer-substring-no-properties (+ beg 6)
                                                           (- end 7))
                           ")"))
         'intangible t)))

and similar for muse-publish-lisp-tag

<lisp>(defun foo () "it works") (foo)</lisp>

is displayed as

it works

Regards,
-- 
Jim Ottaway