Mercurial > emacs
comparison lisp/emacs-lisp/autoload.el @ 648:70b112526394
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 18 May 1992 08:14:41 +0000 |
parents | 999d0b38694e |
children | 8a533acedb77 |
comparison
equal
deleted
inserted
replaced
647:529171c8b71c | 648:70b112526394 |
---|---|
1 ;;; Maintain autoloads in loaddefs.el. | 1 ;;; Maintain autoloads in loaddefs.el. |
2 ;;; Copyright (C) 1991 Free Software Foundation, Inc. | 2 ;;; Copyright (C) 1991, 1992 Free Software Foundation, Inc. |
3 ;;; Written by Roland McGrath. | 3 ;;; Written by Roland McGrath. |
4 ;;; | 4 ;;; |
5 ;;; This program is free software; you can redistribute it and/or modify | 5 ;;; This program is free software; you can redistribute it and/or modify |
6 ;;; it under the terms of the GNU General Public License as published by | 6 ;;; it under the terms of the GNU General Public License as published by |
7 ;;; the Free Software Foundation; either version 1, or (at your option) | 7 ;;; the Free Software Foundation; either version 1, or (at your option) |
265 (defun batch-update-autoloads () | 265 (defun batch-update-autoloads () |
266 "Update the autoloads for the files or directories on the command line. | 266 "Update the autoloads for the files or directories on the command line. |
267 Runs \\[update-file-autoloads] on files and \\[update-directory-autoloads] | 267 Runs \\[update-file-autoloads] on files and \\[update-directory-autoloads] |
268 on directories. Must be used only with -batch, and kills Emacs on completion. | 268 on directories. Must be used only with -batch, and kills Emacs on completion. |
269 Each file will be processed even if an error occurred previously. | 269 Each file will be processed even if an error occurred previously. |
270 For example, invoke \"emacs -batch -f batch-byte-compile *.el\"" | 270 For example, invoke \"emacs -batch -f batch-update-autoloads *.el\"" |
271 (if (not noninteractive) | 271 (if (not noninteractive) |
272 (error "batch-update-file-autoloads is to be used only with -batch")) | 272 (error "batch-update-file-autoloads is to be used only with -batch")) |
273 (let ((lost nil) | 273 (let ((lost nil) |
274 (args command-line-args-left)) | 274 (args command-line-args-left)) |
275 (while args | 275 (while args |
286 (save-some-buffers t) | 286 (save-some-buffers t) |
287 (message "Done") | 287 (message "Done") |
288 (kill-emacs (if lost 1 0)))) | 288 (kill-emacs (if lost 1 0)))) |
289 | 289 |
290 (provide 'autoload) | 290 (provide 'autoload) |
291 |