+2006-04-12 Reiner Steib <Reiner.Steib@gmx.de>
+
+ * smiley.el: Revert previous change.
+ (smiley-data-directory): defvar it before using it in the
+ defcustom of `smiley-style'.
+
2006-04-12 Lars Magne Ingebrigtsen <larsi@gnus.org>
* ecomplete.el: Implement more bits.
"Turn :-)'s into real images."
:group 'gnus-visual)
-(defcustom smiley-data-directory (smiley-directory)
- "*Location of the smiley faces files."
- :set (lambda (symbol value)
- (set-default symbol value)
- (smiley-update-cache))
- :initialize 'custom-initialize-default
- :type 'directory
- :group 'smiley)
+(defvar smiley-data-directory)
-;; Maybe this should go.
(defcustom smiley-style 'low-color
"Smiley style."
:type '(choice (const :tag "small, 3 colors" low-color)
((eq smiley-style 'medium) "/medium")
((eq smiley-style 'grayscale) "/grayscale")))))
+(defcustom smiley-data-directory (smiley-directory)
+ "*Location of the smiley faces files."
+ :set (lambda (symbol value)
+ (set-default symbol value)
+ (smiley-update-cache))
+ :initialize 'custom-initialize-default
+ :type 'directory
+ :group 'smiley)
+
;; The XEmacs version has a baroque, if not rococo, set of these.
(defcustom smiley-regexp-alist
'(("\\(;-?)\\)\\W" 1 "blink")