Re: [emacs-wiki-discuss] Re: <lisp> ... </lisp> in muse

[Jim Ottaway]

>>>>> Stefan Reichör <address@hidden> writes:

>>>>>> Jim Ottaway <address@hidden> writes:
>> Don't you just have to do 
>> 
>> (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
>> (buffer-substring-no-properties (+ beg 6)
>> (- end 7)))
>> 'intangible t)))
>> 
>> 
>> And then modify muse-colors-tags
>> 
>> (setq muse-colors-tags (delete (assoc "lisp" muse-colors-tags) 
>> muse-colors-tags))
>> (push '("lisp" t nil muse-colors-lisp-tag) muse-colors-tags)
>> 
>> 
>> Or are there some niceties that I have missed?

> Thanks for your idea. But it does not work for me.

> I tried it with the following buffer content:

> <lisp>(+ 3 4)</lisp>

> * When I use emacs-wiki-mode: 7 is displayed
> * With emacs-muse the whole line is shown

> Does it work for you with the function you have proposed?

Yes it does; I just tried it again using your example above.

Hmm.  I wonder why it doesn't work for you.  Did you evaluate the two
lines that fiddle with muse-colors-tags?


Regards,

-- 
Jim Ottaway