85 |
;; Make `kill-buffer' quiet. |
;; Make `kill-buffer' quiet. |
86 |
(set-buffer-modified-p nil)) |
(set-buffer-modified-p nil)) |
87 |
;; Have the original buffer current while we eval. |
;; Have the original buffer current while we eval. |
88 |
(eval-buffer buffer nil file |
(eval-buffer buffer nil |
89 |
|
;; This is compatible with what `load' does. |
90 |
|
(if purify-flag file fullname) |
91 |
;; If this Emacs is running with --unibyte, |
;; If this Emacs is running with --unibyte, |
92 |
;; convert multibyte strings to unibyte |
;; convert multibyte strings to unibyte |
93 |
;; after reading them. |
;; after reading them. |