Mercurial > emacs
comparison lisp/international/mule.el @ 20168:13074c25ab06
Indicate in messages if source code is being loaded.
author | Simon Marshall <simon@gnu.org> |
---|---|
date | Thu, 23 Oct 1997 14:58:25 +0000 |
parents | 0d9c6ccdc45c |
children | faf18d58a01b |
comparison
equal
deleted
inserted
replaced
20167:5bd2ed765d52 | 20168:13074c25ab06 |
---|---|
47 ;; fundamental-mode. | 47 ;; fundamental-mode. |
48 (let ((default-major-mode 'fundamental-mode)) | 48 (let ((default-major-mode 'fundamental-mode)) |
49 ;; We can't use `generate-new-buffer' because files.el | 49 ;; We can't use `generate-new-buffer' because files.el |
50 ;; is not yet loaded. | 50 ;; is not yet loaded. |
51 (get-buffer-create (generate-new-buffer-name " *load*")))) | 51 (get-buffer-create (generate-new-buffer-name " *load*")))) |
52 (load-in-progress t)) | 52 (load-in-progress t) |
53 (or nomessage (message "Loading %s..." file)) | 53 (source (save-match-data (string-match "\\.el\\'" fullname)))) |
54 (if purify-flag | 54 (unless nomessage |
55 (setq preloaded-file-list (cons file preloaded-file-list))) | 55 (if source |
56 (message "Loading %s (source)..." file) | |
57 (message "Loading %s..." file))) | |
58 (when purify-flag | |
59 (setq preloaded-file-list (cons file preloaded-file-list))) | |
56 (unwind-protect | 60 (unwind-protect |
57 (let ((load-file-name fullname) | 61 (let ((load-file-name fullname) |
58 (inhibit-file-name-operation nil)) | 62 (inhibit-file-name-operation nil)) |
59 (save-excursion | 63 (save-excursion |
60 (set-buffer buffer) | 64 (set-buffer buffer) |
66 ;; Eval in the original buffer. | 70 ;; Eval in the original buffer. |
67 (eval-buffer buffer nil file)) | 71 (eval-buffer buffer nil file)) |
68 (let (kill-buffer-hook kill-buffer-query-functions) | 72 (let (kill-buffer-hook kill-buffer-query-functions) |
69 (kill-buffer buffer))) | 73 (kill-buffer buffer))) |
70 (let ((hook (assoc file after-load-alist))) | 74 (let ((hook (assoc file after-load-alist))) |
71 (if hook | 75 (when hook |
72 (mapcar (function eval) (cdr hook)))) | 76 (mapcar (function eval) (cdr hook)))) |
73 (or nomessage noninteractive | 77 (unless (or nomessage noninteractive) |
74 (message "Loading %s...done" file)) | 78 (if source |
79 (message "Loading %s (source)...done" file) | |
80 (message "Loading %s...done" file))) | |
75 t))) | 81 t))) |
76 | 82 |
77 ;; API (Application Program Interface) for charsets. | 83 ;; API (Application Program Interface) for charsets. |
78 | 84 |
79 ;; Return t if OBJ is a quoted symbol | 85 ;; Return t if OBJ is a quoted symbol |