Ticket #507 (new defect)

Opened 15 months ago

Last modified 15 months ago

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

Change History

Changed 15 months ago by haiwei

Sorry, last patch doesn't work for subsubsubsubsection
This should work.

--- 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]
+ [subsub\\\(?:sub\\\)+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

Changed 15 months ago by haiwei

Sorry. I misunderstanded the subsubsub*section function name. Please ignore the patches.

The function sub*section is missing. subsubsub*section is used for this function

Note: See TracTickets for help on using tickets.