Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
88162676
Commit
88162676
authored
Apr 20, 1998
by
Richard M. Stallman
Browse files
(load-with-code-conversion):
Undo previous change. Instead, pass the UNIBYTE arg to eval-buffer.
parent
8f3642a4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
2 deletions
+11
-2
lisp/international/mule.el
lisp/international/mule.el
+11
-2
No files found.
lisp/international/mule.el
View file @
88162676
...
...
@@ -45,7 +45,12 @@ Return t if file exists."
(let* ((buffer
;; To avoid any autoloading, set default-major-mode to
;; fundamental-mode.
(let ((default-major-mode 'fundamental-mode))
;; So that we don't get completely screwed if the
;; file is encoded in some complicated character set,
;; read it with real decoding, as a multibyte buffer,
;; even if this is a --unibyte Emacs session.
(let ((default-major-mode 'fundamental-mode)
(default-enable-multibyte-characters t))
;; We can't use `generate-new-buffer' because files.el
;; is not yet loaded.
(get-buffer-create (generate-new-buffer-name "
*load*
"))))
...
...
@@ -66,7 +71,11 @@ Return t if file exists."
;; Make `kill-buffer' quiet.
(set-buffer-modified-p nil))
;; Have the original buffer current while we eval.
(eval-buffer buffer nil file))
(eval-buffer buffer nil file
;; If this Emacs is running with --unibyte,
;; convert multibyte strings to unibyte
;; after reading them.
(not default-enable-multibyte-characters)))
(let (kill-buffer-hook kill-buffer-query-functions)
(kill-buffer buffer)))
(let ((hook (assoc file after-load-alist)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment