X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Ffiles.el;h=ff3f585e12d891c54424d4f5a824c9c3d20dc870;hp=2c288c33923c4b43c428d39c14050e2304f6244e;hb=b267e52aa03bee2c488c8a78824d96cf2d9a6ccc;hpb=669565bfdc5d704dfb1d5ac1a0ec01fb3615a1ae

diff --git a/lisp/files.el b/lisp/files.el
index 2c288c3..ff3f585 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1342,17 +1342,12 @@ and we don't even do that unless it would come from the file name."
 			  (setq alist (cdr alist)))))))
               (if mode
 		  (if (not (fboundp mode))
-		      (progn
-			(if (or (not (boundp 'package-get-base))
-				(not package-get-base))
-			    (load "package-get-base"))
-			(require 'package-get)
-			(let ((name (package-get-package-provider mode)))
-			  (if name
-			      (message "Mode %s is not installed.  Download package %s" mode name)
-			    (message "Mode %s either doesn't exist or is not a known package" mode))
-			  (sit-for 2)
-			  (error "%s" mode)))
+                      (let ((name (package-get-package-provider mode)))
+                        (if name
+                            (message "Mode %s is not installed.  Download package %s" mode name)
+                          (message "Mode %s either doesn't exist or is not a known package" mode))
+                        (sit-for 2)
+                        (error "%s" mode))
 		    (unless (and just-from-file-name
 				 (or
 				  ;; Don't reinvoke major mode.