From ac58f98f0ea13508d2e1d0b9bcbeaacce0541b0b Mon Sep 17 00:00:00 2001
From: weber
Date: Thu, 17 May 2007 15:19:56 +0000
Subject: XEmacs 21.4.15 does not seem to know propertize

---
 isar/isar-find-theorems.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/isar/isar-find-theorems.el b/isar/isar-find-theorems.el
index ece12a98..2e007e78 100644
--- a/isar/isar-find-theorems.el
+++ b/isar/isar-find-theorems.el
@@ -120,7 +120,11 @@
   (switch-to-buffer "*Find Theorems*")
 
   (widget-insert
-    (concat "\n  " (propertize "Find Theorems" 'face 'bold) "\n\n"))
+    (concat "\n  "
+      (if (fboundp 'propertize)
+        (propertize "Find Theorems" 'face 'bold)
+      "Find Theorems")
+      "\n\n"))
 
   ;; pattern
   (widget-insert "  Search pattern: ")
@@ -230,9 +234,11 @@
 
   ;; errmsg
   (if errmsg
-    (widget-insert (concat "\n    " (propertize
-      (concat errmsg "\n    See help for details.")
-      'face (list :foreground "red")) "\n")))
+    (widget-insert (concat "\n    "
+      (if (fboundp 'propertize)
+        (propertize (concat errmsg "\n    See help for details.") 'face 'bold)
+      (concat errmsg "\n    See help for details."))
+      "\n")))
 
   (use-local-map widget-keymap)
   (widget-setup)
-- 
cgit v1.2.3