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