From 4a42491d569b3a0867aaffdd8add13a76627333e Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Wed, 12 Apr 2006 05:50:52 +0000 Subject: [PATCH] (smiley-style): Move definition later to avoid a compilation warning. --- lisp/ChangeLog | 5 +++++ lisp/smiley.el | 18 +++++++++--------- 2 files changed, 14 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 676421a58..8437821b3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-04-12 Lars Magne Ingebrigtsen + + * smiley.el (smiley-style): Move definition later to avoid a + compilation warning. + 2006-04-12 Katsumi Yamaoka * gnus-art.el (gnus-mime-copy-part): Find name parameter in diff --git a/lisp/smiley.el b/lisp/smiley.el index 2f081e356..6e0227f09 100644 --- a/lisp/smiley.el +++ b/lisp/smiley.el @@ -58,6 +58,15 @@ "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) + ;; Maybe this should go. (defcustom smiley-style 'low-color "Smiley style." @@ -86,15 +95,6 @@ is nil, use `smiley-style'." ((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") -- 2.34.1