> chop Chops off the last character of a string and returns the
> character chopped....
Maybe -2 instead of -1, I'm not sure.
(defun font-lock-fontify-syntactically-region (start end &optional loudly)
(let ((lisp-like (font-lock-lisp-like major-mode)))
#'(lambda (s e context depth)
(cond ((eq context 'string)
;; #### It would be nice if we handled
;; Python and other non-Lisp languages with
;; docstrings correctly.
(if (and lisp-like (= depth 1))
;; really we should only use this if
;; in position 3 depth 1, but that's
;; too expensive to compute.
As the comment indicates, this does the wrong thing for forms like:
(defparameter *motd* "Howdy" "String used to greet user."), as "Howdy"
is fontified as a docstring.
If I am willing to wait for the computation of position 3 depth 1, in
order to make a correct choice between 'font-lock-string-face and
'font-lock-doc-string-face, how should I go about setting up the
behaviour I want? The relevant major modes are common-lisp-mode and
2. Poor Audio: