Mercurial > hg > xemacs-beta
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. |