Fix the last change.

diff --git a/lisp/liece-vars.el b/lisp/liece-vars.el
index 7096d04..0cfd043 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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)