procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(update-autoloads-from-directory): Get absolute file names from

Browse source 
directory-files, and expand generated-autoload-file.  Subdirs happy now.
This commit is contained in:
Roland McGrath 1997-02-17 21:44:59 +00:00
parent b89d503573
commit 2884cbf0e8
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/autoload.el
View file

@ -1,6 +1,6 @@
;;; autoload.el --- maintain autoloads in loaddefs.el.
;; Copyright (C) 1991, 92, 93, 94, 95, 96 Free Software Foundation, Inc.
;; Copyright (C) 1991, 92, 93, 94, 95, 96, 97 Free Software Foundation, Inc.
;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
;; Keywords: maint
@ -377,11 +377,11 @@ Update loaddefs.el with all the current autoloads from DIR, and no old ones.
This uses `update-file-autoloads' (which see) do its work."
(interactive "DUpdate autoloads from directory: ")
(setq dir (expand-file-name dir))
(let ((files (directory-files dir nil "^[^=].*\\.el$")))
(let ((files (directory-files dir t "^[^=].*\\.el$")))
(save-excursion
(set-buffer (find-file-noselect
(if (file-exists-p generated-autoload-file)
generated-autoload-file
(expand-file-name generated-autoload-file)
(expand-file-name generated-autoload-file
dir))))
(save-excursion