Mercurial > emacs

comparison lisp/emacs-lisp/autoload.el @ 16995:22c9b578e220

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(update-autoloads-from-directory): Get absolute file names from directory-files, and expand generated-autoload-file. Subdirs happy now.
author Roland McGrath <roland@gnu.org>
date Mon, 17 Feb 1997 21:44:59 +0000
parents af6ef293cb42
children ce8565274e49
comparison
equal deleted inserted replaced
16994:53c337a6e39d 16995:22c9b578e220
1 ;;; autoload.el --- maintain autoloads in loaddefs.el. 1 ;;; autoload.el --- maintain autoloads in loaddefs.el.
2 2
3 ;; Copyright (C) 1991, 92, 93, 94, 95, 96 Free Software Foundation, Inc. 3 ;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97 Free Software Foundation, Inc.
4 4
5 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu> 5 ;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
6 ;; Keywords: maint 6 ;; Keywords: maint
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
375 "\ 375 "\
376 Update loaddefs.el with all the current autoloads from DIR, and no old ones. 376 Update loaddefs.el with all the current autoloads from DIR, and no old ones.
377 This uses `update-file-autoloads' (which see) do its work." 377 This uses `update-file-autoloads' (which see) do its work."
378 (interactive "DUpdate autoloads from directory: ") 378 (interactive "DUpdate autoloads from directory: ")
379 (setq dir (expand-file-name dir)) 379 (setq dir (expand-file-name dir))
380 (let ((files (directory-files dir nil "^[^=].*\\.el$"))) 380 (let ((files (directory-files dir t "^[^=].*\\.el$")))
381 (save-excursion 381 (save-excursion
382 (set-buffer (find-file-noselect 382 (set-buffer (find-file-noselect
383 (if (file-exists-p generated-autoload-file) 383 (if (file-exists-p generated-autoload-file)
384 generated-autoload-file 384 (expand-file-name generated-autoload-file)
385 (expand-file-name generated-autoload-file 385 (expand-file-name generated-autoload-file
386 dir)))) 386 dir))))
387 (save-excursion 387 (save-excursion
388 (goto-char (point-min)) 388 (goto-char (point-min))
389 (while (search-forward generate-autoload-section-header nil t) 389 (while (search-forward generate-autoload-section-header nil t)