branch: elpa/adoc-mode
commit 0348f96d72e31470d639ca0a3a0bfdc98859a08a
Author: sensorflo <sensor...@gmail.com>
Commit: sensorflo <sensor...@gmail.com>
local refactoring in field of attribute list
---
adoc-mode.el | 18 ++++++++++--------
1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/adoc-mode.el b/adoc-mode.el
index 055c1d5186..a2407c47e3 100644
--- a/adoc-mode.el
+++ b/adoc-mode.el
@@ -1301,13 +1301,15 @@ text having adoc-reserved set to 'block-del."
(goto-char (or (text-property-not-all (point) end 'adoc-attribute-list nil)
end))
(when (< (point) end)
- (let ((attribute-list-end
- (or (text-property-any (point) end 'adoc-attribute-list nil)
- end))
- ;; position (number) or name (string) of current
- ;; attribute. Attribute list start with positional attributes, as
- ;; opposed to named attributes, thus init with 0.
- (pos-or-name-of-attribute 0))
+ (let* ((attribute-list-end
+ (or (text-property-any (point) end 'adoc-attribute-list nil)
+ end))
+ (prop-of-attribute-list
+ (get-text-property (point) 'adoc-attribute-list))
+ ;; position (number) or name (string) of current
+ ;; attribute. Attribute list start with positional attributes, as
+ ;; opposed to named attributes, thus init with 0.
+ (pos-or-name-of-attribute 0))
;; for each attribute in current attribute list
(while (re-search-forward (adoc-re-attribute-list-elt)
attribute-list-end t)
@@ -1322,7 +1324,7 @@ text having adoc-reserved set to 'block-del."
;; fontify the attribute's value
(let ((match-group-of-attribute-value (if (match-beginning 2) 2 3))
(attribute-value-face
- (adoc-face-for-attribute pos-or-name-of-attribute
(get-text-property (match-beginning 0) 'adoc-attribute-list))))
+ (adoc-face-for-attribute pos-or-name-of-attribute
prop-of-attribute-list)))
(put-text-property
(match-beginning match-group-of-attribute-value)
(match-end match-group-of-attribute-value)
