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

+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

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))))