Mercurial > emacs
comparison lisp/startup.el @ 30899:429c384fc024
(normal-top-level): Look in each dir in load-path for a leim-list.el
file too. This assures of loading leim-list.el that is created at
Emacs installation time even if a user have his own leim-list.el.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 17 Aug 2000 01:08:11 +0000 |
parents | d5706e135845 |
children | 4f501e4f7a43 |
comparison
equal
deleted
inserted
replaced
30898:7a113c33bf9f | 30899:429c384fc024 |
---|---|
406 (if (equal (user-uid) 0) | 406 (if (equal (user-uid) 0) |
407 (setq backup-by-copying-when-mismatch t)) | 407 (setq backup-by-copying-when-mismatch t)) |
408 ;; Look in each dir in load-path for a subdirs.el file. | 408 ;; Look in each dir in load-path for a subdirs.el file. |
409 ;; If we find one, load it, which will add the appropriate subdirs | 409 ;; If we find one, load it, which will add the appropriate subdirs |
410 ;; of that dir into load-path, | 410 ;; of that dir into load-path, |
411 ;; Look for a leim-list.el file too. Loading it will register | |
412 ;; available input methods. | |
411 (let ((tail load-path) | 413 (let ((tail load-path) |
412 new) | 414 new) |
413 (while tail | 415 (while tail |
414 (setq new (cons (car tail) new)) | 416 (setq new (cons (car tail) new)) |
415 (condition-case nil | 417 (condition-case nil |
416 (let ((default-directory (car tail))) | 418 (let ((default-directory (car tail))) |
417 (load (expand-file-name "subdirs.el" (car tail)) t t t))) | 419 (load (expand-file-name "subdirs.el" (car tail)) t t t))) |
420 (condition-case nil | |
421 (let ((default-directory (car tail))) | |
422 (load (expand-file-name "leim-list.el" (car tail)) t t t))) | |
418 (setq tail (cdr tail)))) | 423 (setq tail (cdr tail)))) |
419 (if (not (eq system-type 'vax-vms)) | 424 (if (not (eq system-type 'vax-vms)) |
420 (progn | 425 (progn |
421 ;; If the PWD environment variable isn't accurate, delete it. | 426 ;; If the PWD environment variable isn't accurate, delete it. |
422 (let ((pwd (getenv "PWD"))) | 427 (let ((pwd (getenv "PWD"))) |
659 ;; Run the site-start library if it exists. The point of this file is | 664 ;; Run the site-start library if it exists. The point of this file is |
660 ;; that it is run before .emacs. There is no point in doing this after | 665 ;; that it is run before .emacs. There is no point in doing this after |
661 ;; .emacs; that is useless. | 666 ;; .emacs; that is useless. |
662 (if site-run-file | 667 (if site-run-file |
663 (load site-run-file t t)) | 668 (load site-run-file t t)) |
664 | |
665 ;; Register available input methods by loading LEIM list file. | |
666 (load "leim-list.el" 'noerror 'nomessage 'nosuffix) | |
667 | 669 |
668 ;; Sites should not disable this. Only individuals should disable | 670 ;; Sites should not disable this. Only individuals should disable |
669 ;; the startup message. | 671 ;; the startup message. |
670 (setq inhibit-startup-message nil) | 672 (setq inhibit-startup-message nil) |
671 | 673 |