From f060c5b4d1cf12b4c85d5fe219cdca2eaa924152 Mon Sep 17 00:00:00 2001
From: Christer Ekholm <che@chrekh.se>
Date: Tue, 5 Aug 2014 20:40:45 +0200
Subject: [PATCH] Fixed misspelling of set-face-strikethru-p.
The code is supposed to use set-face-strikethru-p if available (in
xemacs). But the function was misspelled in the test, thus never used.
---
src/ChangeLog | 4 ++++
src/compatibility.el | 2 +-
2 files changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/ChangeLog b/src/ChangeLog
index 12caf242..eed52474 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2014-08-05 Christer Ekholm <che@chrekh.se>
+
+ * compatibility.el: Fixed misspelling of set-face-strikethru-p.
+
2014-08-02 Christer Ekholm <che@chrekh.se>
* compatibility.el (set-face-underline): Fixed misspelling of
diff --git a/src/compatibility.el b/src/compatibility.el
index b1dfffa7..d25a83f9 100644
--- a/src/compatibility.el
+++ b/src/compatibility.el
@@ -341,7 +341,7 @@ Calls set-face-underline-p."
(if (not (lyskom-find-face 'strikethrough))
(progn (make-face 'strikethrough)
- (if (eval-when-compile (fboundp 'set-face-strikethrough-p))
+ (if (eval-when-compile (fboundp 'set-face-strikethru-p))
(set-face-strikethru-p 'strikethrough t)
(lyskom-set-face-underline 'strikethrough t))))
--
GitLab