From 6a49c708d80dd5bcca100f477c0da8675f05c1af Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 16 Aug 2005 01:05:48 +0000 Subject: [PATCH] * riece-options.el (riece-data-directory): Use load-file-name. --- lisp/ChangeLog | 4 ++++ lisp/riece-options.el | 10 +++------- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c2862a3..798123a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-08-16 Daiki Ueno + + * riece-options.el (riece-data-directory): Use load-file-name. + 2005-08-15 TAKAHASHI Kaoru * riece-options.el (riece-data-directory): Avoid compile time diff --git a/lisp/riece-options.el b/lisp/riece-options.el index 1e1057c..bd638cc 100644 --- a/lisp/riece-options.el +++ b/lisp/riece-options.el @@ -87,13 +87,9 @@ See the document of the function `recenter'." :group 'riece-options) (defcustom riece-data-directory - (cond ((fboundp 'locate-data-directory) - (locate-data-directory "riece")) - ((symbol-file 'riece-data-directory) - (file-name-directory - (locate-library (symbol-file 'riece-data-directory)))) - (t - (expand-file-name "riece" data-directory))) + (if (fboundp 'locate-data-directory) + (locate-data-directory "riece") + (file-name-directory load-file-name)) "Where to look for data files." :type 'directory :group 'riece-options) -- 1.7.10.4