Mercurial > hg > xemacs-beta

comparison lisp/utils/autoload.el @ 183:e121b013d1f0 r20-3b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b18
author cvs
date Mon, 13 Aug 2007 09:54:23 +0200
parents 15872534500d
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
182:f07455f06202 183:e121b013d1f0
605 (goto-char (point-min)) 605 (goto-char (point-min))
606 (if (and (not (= (point-min) (point-max))) 606 (if (and (not (= (point-min) (point-max)))
607 (not (looking-at ";;; DO NOT MODIFY THIS FILE"))) 607 (not (looking-at ";;; DO NOT MODIFY THIS FILE")))
608 (progn 608 (progn
609 (insert ";;; DO NOT MODIFY THIS FILE\n") 609 (insert ";;; DO NOT MODIFY THIS FILE\n")
610 (insert "(if (not (featurep '" sym "))\n")
611 (insert " (progn\n")
612 (goto-char (point-max)) 610 (goto-char (point-max))
613 (insert "\n(provide '" sym ")\n))\n"))))) 611 (insert "\n(provide '" sym ")\n")))))
612
613 (defvar autoload-package-name nil)
614 614
615 ;;;###autoload 615 ;;;###autoload
616 (defun batch-update-directory () 616 (defun batch-update-directory ()
617 "Update the autoloads for the directory on the command line. 617 "Update the autoloads for the directory on the command line.
618 Runs `update-file-autoloads' on each file in the given directory, and must 618 Runs `update-file-autoloads' on each file in the given directory, and must
640 (update-autoloads-from-directory arg)) 640 (update-autoloads-from-directory arg))
641 (t (error "No such file or directory: %s" arg))) 641 (t (error "No such file or directory: %s" arg)))
642 (when autoload-do-custom-save 642 (when autoload-do-custom-save
643 (autoload-save-customization) 643 (autoload-save-customization)
644 (setq customized-symbols nil)) 644 (setq customized-symbols nil))
645 (fixup-autoload-buffer (concat (file-name-nondirectory arg) 645 (fixup-autoload-buffer (concat (if autoload-package-name
646 autoload-package-name
647 (file-name-nondirectory arg))
646 "-autoloads")) 648 "-autoloads"))
647 (save-some-buffers t)) 649 (save-some-buffers t))
648 ;; (message "Done") 650 ;; (message "Done")
649 ;; (kill-emacs 0) 651 ;; (kill-emacs 0)
650 ) 652 )