diff lisp/international/mule.el @ 104681:91afee51b252

* textmodes/ispell.el (ispell-check-version, ispell-send-string): * international/mule.el (load-with-code-conversion): * emacs-lisp/debug.el (debug): * ediff-vers.el (ediff-rcs-get-output-buffer): * dired.el (dired-internal-noselect): Don't let-bind default-major-mode around code that doesn't use it. E.g. buffer creation via get-buffer-create doesn't use it.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 28 Aug 2009 16:29:25 +0000
parents 0cca0ac80b2a
children a41e72b7e5fc
line wrap: on
line diff
--- a/lisp/international/mule.el	Fri Aug 28 14:36:53 2009 +0000
+++ b/lisp/international/mule.el	Fri Aug 28 16:29:25 2009 +0000
@@ -307,12 +307,9 @@
 	   (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*"))))
+            ;; 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))))
       (unless nomessage