From 7c3d45f34069d782a3d026614c4660f36ee3db06 Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 12 Nov 1999 17:18:09 +0000 Subject: [PATCH] (normal-top-level): Load autoload file for UTF-2000 in UTF-2000. --- lisp/startup.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/startup.el b/lisp/startup.el index 41947e8..32deb92 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -401,10 +401,15 @@ Type ^H^H^H (Control-h Control-h Control-h) to get more help options.\n") debug-paths)) (startup-setup-paths-warning)) - (if (and (not inhibit-autoloads) - lisp-directory) - (load (expand-file-name (file-name-sans-extension autoload-file-name) - lisp-directory) nil t)) + (when (and (not inhibit-autoloads) + lisp-directory) + (load (expand-file-name (file-name-sans-extension autoload-file-name) + lisp-directory) nil t) + (if (featurep 'utf-2000) + (load (expand-file-name + (file-name-sans-extension autoload-file-name) + (expand-file-name "utf-2000" lisp-directory)) + nil t))) (if (not inhibit-autoloads) (progn -- 1.7.10.4