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

[Michael Olson]

Jim Ottaway <address@hidden> writes:

> 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

Good idea!  We'll go with that.

-- 
Michael Olson -- FSF Associate Member #652 -- http://www.mwolson.org/
Interests: manga, Debian, XHTML, wiki, Emacs Lisp
  /` |\ | | | IRC: mwolson on freenode.net: #hcoop, #muse, #PurdueLUG
 |_] | \| |_| Jabber: mwolson_at_hcoop.net

pgpeoHCieFxYm.pgp
Description: PGP signature