Mercurial > emacs

comparison lisp/international/mule.el @ 20168:13074c25ab06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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