Ticket #507 (new defect)
Font lock doesn't work for subsubsubsection
| Reported by: | highfly22@… | Owned by: | neil |
|---|---|---|---|
| Priority: | major | Milestone: | |
| Component: | neil/scribble-emacs.plt | Keywords: | |
| Cc: | Version: | (1 2) | |
| Racket Version: |
Description
I have created a patch for this.
--- a/.emacs.d/emacs-lisp/scribble.el
+++ b/.emacs.d/emacs-lisp/scribble.el
@@ -283,11 +283,11 @@ For other licenses and consulting, please contact the author.")
...)
part-start?
scribble-subsubsection-heading-face]
- [sub*section (,@scribble-heading-form-args
- [p - pre-content? -]
- ...)
- part-start?
- scribble-sub*section-heading-face]
+ [subsubsub+section (,@scribble-heading-form-args
+ [p - pre-content? -]
+ ...)
+ part-start?
+ scribble-sub*section-heading-face]
[author ([p - content? -])
block?
nil]
@@ -711,9 +711,8 @@ For other licenses and consulting, please contact the author.")
(,(if face 6 5) 'scribble-curly-brace-face nil t))))
(let ((face-to-namerxs-alist '()))
(mapc (lambda (form)
- (let* ((namerx (regexp-quote
- (symbol-name (scribble-get-form-name
- form))))
+ (let* ((namerx (symbol-name (scribble-get-form-name
+ form)))
(face (scribble-get-form-face form))
(pair (assq face face-to-namerxs-alist)))
(if pair
