comparison lisp/files.el @ 321:19dcec799385 r21-0-58

Import from CVS: tag r21-0-58
author cvs
date Mon, 13 Aug 2007 10:46:44 +0200
parents afd57c14dfc8
children 8bec6624d99b
comparison
equal deleted inserted replaced
320:73c75c43c1f2 321:19dcec799385
1340 (setq mode (cdr (car alist))) 1340 (setq mode (cdr (car alist)))
1341 (setq alist nil)) 1341 (setq alist nil))
1342 (setq alist (cdr alist))))))) 1342 (setq alist (cdr alist)))))))
1343 (if mode 1343 (if mode
1344 (if (not (fboundp mode)) 1344 (if (not (fboundp mode))
1345 (progn 1345 (let ((name (package-get-package-provider mode)))
1346 (if (or (not (boundp 'package-get-base)) 1346 (if name
1347 (not package-get-base)) 1347 (message "Mode %s is not installed. Download package %s" mode name)
1348 (load "package-get-base")) 1348 (message "Mode %s either doesn't exist or is not a known package" mode))
1349 (require 'package-get) 1349 (sit-for 2)
1350 (let ((name (package-get-package-provider mode))) 1350 (error "%s" mode))
1351 (if name
1352 (message "Mode %s is not installed. Download package %s" mode name)
1353 (message "Mode %s either doesn't exist or is not a known package" mode))
1354 (sit-for 2)
1355 (error "%s" mode)))
1356 (unless (and just-from-file-name 1351 (unless (and just-from-file-name
1357 (or 1352 (or
1358 ;; Don't reinvoke major mode. 1353 ;; Don't reinvoke major mode.
1359 (eq mode major-mode) 1354 (eq mode major-mode)
1360 ;; Don't lose on minor modes. 1355 ;; Don't lose on minor modes.