Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 375:a300bb07d72d r21-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b3
author cvs
date Mon, 13 Aug 2007 11:04:51 +0200
parents 6240c7796c7a
children 8626e4521993
comparison
equal deleted inserted replaced
374:4ebeb1a5388b 375:a300bb07d72d
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.