branch: elpa/adoc-mode
commit b0702bdeb8d799720661766936c36ec3b454c609
Author: TobiasZawada <i...@tn-home.de>
Commit: GitHub <nore...@github.com>
[Fix #33] Address noticeable lag when typing in larger code blocks (#35)
- Set text property `font-lock-fontified` for fontified code blocks
- also fix compiler error by quoting lambdas with sharp quote
Co-authored-by: Tobias Zawada <t...@esi-group.com>
---
adoc-mode.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/adoc-mode.el b/adoc-mode.el
index 38d3d5fdab..4d114bf88f 100644
--- a/adoc-mode.el
+++ b/adoc-mode.el
@@ -253,7 +253,7 @@ are fontified natively regardless of their size."
:type '(choice :tag "Fontify code blocks " :format "\n%{%t%}: %[Size%] %v"
(integer :tag "limited to")
(boolean :tag "unlimited"))
- :safe '(lambda (x) (or (booleanp x) (numberp x)))
+ :safe #'(lambda (x) (or (booleanp x) (numberp x)))
:package-version '(adoc-mode . "0.8.0"))
;; This is based on `org-src-lang-modes' from org-src.el
@@ -1725,7 +1725,7 @@ Concerning TYPE, LEVEL and SUB-TYPE see `adoc-re-llisti'."
(list
;; see also regexp of forced line break, which is similar. it is not
directly
;; obvious from asciidoc sourcecode what the exact rules are.
- '(lambda (end) (adoc-kwf-std end "^\\(\\+\\)[ \t]*$" '(1)))
+ #'(lambda (end) (adoc-kwf-std end "^\\(\\+\\)[ \t]*$" '(1)))
'(1 '(face adoc-meta-face adoc-reserved block-del) t)))
(defun adoc-kw-delimited-block (del &optional text-face inhibit-text-reserved)
@@ -2119,6 +2119,8 @@ Use this function as matching function MATCHER in
`font-lock-keywords'."
;; Set background for block as well as opening and closing lines.
(font-lock-append-text-property
start-src end-src+nl 'face 'adoc-native-code-face)
+ (add-text-properties
+ start-src end-src+nl '(font-lock-fontified t font-lock-multiline
t))
)))
t)))
@@ -2351,7 +2353,7 @@ Use this function as matching function MATCHER in
`font-lock-keywords'."
;; --- general attribute list block element
;; ^\[(?P<attrlist>.*)\]$
- (list '(lambda (end) (adoc-kwf-std end "^\\(\\[\\(.*\\)\\]\\)[ \t]*$" '(0)))
+ (list #'(lambda (end) (adoc-kwf-std end "^\\(\\[\\(.*\\)\\]\\)[ \t]*$"
'(0)))
'(1 '(face adoc-meta-face adoc-reserved block-del))
'(2 '(face adoc-meta-face adoc-attribute-list t)))
