font-locking of sexpr form broken

font-locking of sexpr form broken

[livingcosmos.org]

The font-locking gets messed up on the second format because I have a
s-expr within the double quotes


(defun calc-frame (noun r)
  (let* ((noun-shape (noun-shape noun))
	 (ls (length noun-shape))
	 (remaining-lead-axes (- ls r)))
    (progn
      (format t "noun-shape: ~A remaining: ~A~%" noun-shape remaining-
lead-axes)
      (format t "
(make-frame :length  ~A
	    :shape   ~A
	    :noun     ~A
	    :n-cells ~A
" remaining-lead-axes (subseq noun-shape 0 remaining-lead-axes)
noun (- ls remaining-lead-axes))
      (make-frame :length  remaining-lead-axes
		  :shape   (subseq noun-shape 0 remaining-lead-axes)
		  :noun     noun
		  :n-cells (- ls remaining-lead-axes)))))

Re: font-locking of sexpr form broken

[martin rudalics]

 > The font-locking gets messed up on the second format because I have a
 > s-expr within the double quotes

This is a known limitation (aka "Left Margin Convention") described in
section 31.2.1 of the Emacs manual.  You have two choices:

(1) Set the option `open-paren-in-column-0-is-defun-start' to nil.

(2) Escape the offending paren with a backslash like

       (format t "
\(make-frame :length  ~A
              :shape   ~A

Observe that with option (1) the paren will be still displayed with
`font-lock-warning-face' and the "help-echo" telling you

"Looks like a toplevel defun: escape the parenthesis"

is not removed.  Hence, in general (and in particular in Elisp mode
where the backslash hardly ever matters) option (2) is preferable.

Re: font-locking of sexpr form broken

[Tassilo Horn]

"livingcosmos.org" <metaperl@gmail.com> writes:

> The font-locking gets messed up on the second format because I have a
> s-expr within the double quotes

I think there was a closing paren missing.  This corrected version is
font-locked fine here.

--8<---------------cut here---------------start------------->8---
(defun calc-frame (noun r)
  (let* ((noun-shape (noun-shape noun))
	 (ls (length noun-shape))
	 (remaining-lead-axes (- ls r)))
    (progn
      (format t "noun-shape: ~A remaining: ~A~%" noun-shape remaining-lead-axes)
      (format t "
(make-frame :length  ~A
	    :shape   ~A
	    :noun    ~A
	    :n-cells ~A
            )" remaining-lead-axes (subseq noun-shape 0 remaining-lead-axes)
 noun (- ls remaining-lead-axes))
      (make-frame :length  remaining-lead-axes
		  :shape   (subseq noun-shape 0 remaining-lead-axes)
		  :noun     noun
		  :n-cells (- ls remaining-lead-axes)))))
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo