comparison lisp/international/mule.el @ 21023:bac070da6b6d

(load-with-code-conversion): Don't bind enable-multibyte-characters; instead, bind default-enable-multibyte-characters before creating buffer. (after-insert-file-set-buffer-file-coding-system): Use set-buffer-multibyte. Use add-hook to add this to after-insert-file-functions.

21022:52bc6b672a50

	   (signal 'file-error (list "Cannot open load file" file)))
    ;; Read file with code conversion, and then eval.
    (let* ((buffer
	    ;; To avoid any autoloading, set default-major-mode to
	    ;; fundamental-mode.
	    (let ((default-major-mode 'fundamental-mode))
	      ;; We can't use `generate-new-buffer' because files.el
	      ;; is not yet loaded.
	      (get-buffer-create (generate-new-buffer-name " *load*"))))
	   (load-in-progress t)
	   (source (save-match-data (string-match "\\.el\\'" fullname))))

      (unwind-protect
	  (let ((load-file-name fullname)
		(inhibit-file-name-operation nil))
	    (save-excursion
	      (set-buffer buffer)
	      ;; This is buffer-local.
	      (setq enable-multibyte-characters t)
	      (insert-file-contents fullname)
	      ;; Make `kill-buffer' quiet.
	      (set-buffer-modified-p nil))
	    ;; Have the original buffer current while we eval.
	    (eval-buffer buffer nil file))

	(when coding-system
	  (set-buffer-file-coding-system coding-system)
	  (if (or (eq coding-system 'no-conversion)
		  (eq (coding-system-type coding-system) 5))
	      ;; It seems that random 8-bit codes are read.  We had
	      ;; better edit this buffer without multibyte character
	      ;; facility.
	      (set-buffer-multibyte nil))
	  (set-buffer-modified-p modified-p))))
  nil)

(setq after-insert-file-functions
      (cons 'after-insert-file-set-buffer-file-coding-system
	    after-insert-file-functions))

;; The coding-spec and eol-type of coding-system returned is decided
;; independently in the following order.
;;	1. That of buffer-file-coding-system locally bound.
;;	2. That of CODING.

21023:bac070da6b6d

	   (signal 'file-error (list "Cannot open load file" file)))
    ;; Read file with code conversion, and then eval.
    (let* ((buffer
	    ;; To avoid any autoloading, set default-major-mode to
	    ;; fundamental-mode.
	    (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*"))))
	   (load-in-progress t)
	   (source (save-match-data (string-match "\\.el\\'" fullname))))

      (unwind-protect
	  (let ((load-file-name fullname)
		(inhibit-file-name-operation nil))
	    (save-excursion
	      (set-buffer buffer)
	      (insert-file-contents fullname)
	      ;; Make `kill-buffer' quiet.
	      (set-buffer-modified-p nil))
	    ;; Have the original buffer current while we eval.
	    (eval-buffer buffer nil file))

	(when coding-system
	  (set-buffer-file-coding-system coding-system)
	  (if (or (eq coding-system 'no-conversion)
		  (eq (coding-system-type coding-system) 5))
	      ;; It seems that random 8-bit codes are read.  We had
	      ;; better edit this buffer without multibyte characters.
	      (set-buffer-multibyte nil))
	  (set-buffer-modified-p modified-p))))
  nil)

(add-hook 'after-insert-file-functions
	  'after-insert-file-set-buffer-file-coding-system)

;; The coding-spec and eol-type of coding-system returned is decided
;; independently in the following order.
;;	1. That of buffer-file-coding-system locally bound.
;;	2. That of CODING.