branch: elpa/htmlize
commit 3c4bf38f6dea01797be4dc9ae7b1589b0e3c0abe
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Simplify formatting two strings
---
htmlize.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/htmlize.el b/htmlize.el
index f253026d6a..52fcccddcf 100644
--- a/htmlize.el
+++ b/htmlize.el
@@ -1205,9 +1205,8 @@ If no rgb.txt file is found, return nil."
(def (cond ((stringp raw-def) (list :foreground raw-def))
((listp raw-def) raw-def)
(t
- (error (format (concat "face override must be an "
- "attribute list or string, got %s")
- raw-def))))))
+ (error "Face override must be %s, got %s"
+ "an attribute list or string" raw-def)))))
(and def
(htmlize-attrlist-to-fstruct def (symbol-name face)))))
@@ -1315,8 +1314,8 @@ overlays that specify `face'."
(let ((sym (intern (format "htmlize-%s-%s" htmlize-output-type method))))
(indirect-function (if (fboundp sym)
sym
- (let ((default (intern (concat "htmlize-default-"
- (symbol-name
method)))))
+ (let ((default (intern (format "htmlize-default-%s"
+ method))))
(if (fboundp default)
default
'ignore))))))
