Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 14022:b7bb85cdc666
(batch-update-autoloads): Use error-message-string.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 05 Jan 1996 02:08:29 +0000 |
| parents | 35c457f8bedf |
| children | d44a43c284e7 |
comparison
equal
deleted
inserted
replaced
| 14021:19bab04cf346 | 14022:b7bb85cdc666 |
|---|---|
| 410 (update-file-autoloads file) | 410 (update-file-autoloads file) |
| 411 (error | 411 (error |
| 412 (princ ">>Error processing ") | 412 (princ ">>Error processing ") |
| 413 (princ file) | 413 (princ file) |
| 414 (princ ": ") | 414 (princ ": ") |
| 415 (if (fboundp 'display-error) | 415 (princ (error-message-string lossage)) |
| 416 (display-error lossage nil) | |
| 417 (prin1 lossage)) | |
| 418 (princ "\n") | 416 (princ "\n") |
| 419 (setq lost t))))))) | 417 (setq lost t))))))) |
| 420 (while args | 418 (while args |
| 421 (if (file-directory-p (expand-file-name (car args))) | 419 (if (file-directory-p (expand-file-name (car args))) |
| 422 (let ((rest (directory-files (car args) t "\\.el$"))) | 420 (let ((rest (directory-files (car args) t "\\.el$"))) |