From: ueno <ueno>
Date: Fri, 1 Sep 2000 14:41:54 +0000 (+0000)
Subject: Fix the last change.
X-Git-Tag: liece-1_4_4-1~41
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=16477ceb5dd1e190203e69493020c291700021af;p=elisp%2Fliece.git

Fix the last change.
---

diff --git a/lisp/liece-vars.el b/lisp/liece-vars.el
index 7096d04..0cfd043 100644
--- a/lisp/liece-vars.el
+++ b/lisp/liece-vars.el
@@ -593,7 +593,7 @@ If value is 'always, an arriving bell will always cause a beep (or flash)."
   :type '(radio (const :tag "Always" always) (const :tag "No" nil))
   :group 'liece-vars)
 
-(defcustom liece-beep-function 'ding
+(defcustom liece-beep-function (function ding)
   "Function to beep."
   :type 'function
   :group 'liece-vars)
diff --git a/lisp/liece-version.el b/lisp/liece-version.el
index 43fdc3d..742f28b 100644
--- a/lisp/liece-version.el
+++ b/lisp/liece-version.el
@@ -36,7 +36,7 @@
 (provide 'liece-version)
 
 (product-provide 'liece-version
-  (product-define "Liece" nil '(1 4 3) "Dreamlore Degenarate"))
+  (product-define "Liece" nil '(1 4 4)))
 
 (defconst liece-environment-version
   (concat
diff --git a/lisp/liece-xemacs.el b/lisp/liece-xemacs.el
index 130b6e7..cf04d33 100644
--- a/lisp/liece-xemacs.el
+++ b/lisp/liece-xemacs.el
@@ -139,10 +139,9 @@ If it is non-nil, it must be a toolbar.  The five valid values are
 ;;; @ internal variables
 ;;; 
 (defvar liece-glyph-cache nil)
-(defvar liece-toolbar-position
-  (static-if (featurep 'toolbar)
-      (default-toolbar-position)
-    nil))
+(defvar liece-toolbar-position (if (featurep 'toolbar)
+				   (default-toolbar-position)
+				 nil))
 
 (defvar liece-toolbar-back-glyph nil)
 (defvar liece-toolbar-forward-glyph nil)