From 8791fc306f28d90390af7cb51aa95fe45a3a4ab2 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 13 Aug 2002 02:13:05 +0000 Subject: [PATCH] Set and use `utf-2000-lisp-directory'. --- lisp/dump-paths.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/lisp/dump-paths.el b/lisp/dump-paths.el index ed3d568..d6d87c8 100644 --- a/lisp/dump-paths.el +++ b/lisp/dump-paths.el @@ -72,6 +72,16 @@ mule-lisp-directory) 'external-debugging-output))) (setq mule-lisp-directory '())) + (if (featurep 'utf-2000) + (progn + (setq utf-2000-lisp-directory + (paths-find-utf-2000-lisp-directory roots + lisp-directory)) + (if debug-paths + (princ (format "utf-2000-lisp-directory:\n%S\n" + utf-2000-lisp-directory) + 'external-debugging-output))) + (setq utf-2000-lisp-directory '())) (setq site-directory (and (null inhibit-site-lisp) (paths-find-site-lisp-directory roots))) (if (and debug-paths (null inhibit-site-lisp)) @@ -84,7 +94,8 @@ '() lisp-directory site-directory - mule-lisp-directory)) + mule-lisp-directory + utf-2000-lisp-directory)) (setq module-directory (paths-find-module-directory roots)) (if debug-paths -- 1.7.10.4