Mercurial > hg > xemacs-beta

comparison lisp/update-elc.el @ 219:262b8bb4a523 r20-4b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b8
author cvs
date Mon, 13 Aug 2007 10:09:35 +0200
parents d44af0c54775
children 2c611d1463a6
comparison
equal deleted inserted replaced
218:c9f226976f56 219:262b8bb4a523
106 (if (null (member arg packages-unbytecompiled-lisp)) 106 (if (null (member arg packages-unbytecompiled-lisp))
107 (progn 107 (progn
108 (setq arg (locate-library arg)) 108 (setq arg (locate-library arg))
109 (if (null arg) 109 (if (null arg)
110 (progn 110 (progn
111 (print (format "Library file %s: not found" 111 (print (format "Error: Library file %s not found"
112 (car preloaded-file-list))) 112 (car preloaded-file-list)))
113 (kill-emacs))) 113 (kill-emacs)))
114 (if (string-match "\\.elc?\\'" arg) 114 (if (string-match "\\.elc?\\'" arg)
115 (setq arg (substring arg 0 (match-beginning 0)))) 115 (setq arg (substring arg 0 (match-beginning 0))))
116 (if (and (null (member arg processed)) 116 (if (and (null (member arg processed))