Commit 2884cbf0 authored by Roland McGrath's avatar Roland McGrath
Browse files

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

directory-files, and expand generated-autoload-file.  Subdirs happy now.
parent b89d5035
;;; autoload.el --- maintain autoloads in loaddefs.el. ;;; 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> ;; Author: Roland McGrath <roland@gnu.ai.mit.edu>
;; Keywords: maint ;; Keywords: maint
...@@ -377,11 +377,11 @@ Update loaddefs.el with all the current autoloads from DIR, and no old ones. ...@@ -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." This uses `update-file-autoloads' (which see) do its work."
(interactive "DUpdate autoloads from directory: ") (interactive "DUpdate autoloads from directory: ")
(setq dir (expand-file-name dir)) (setq dir (expand-file-name dir))
(let ((files (directory-files dir nil "^[^=].*\\.el$"))) (let ((files (directory-files dir t "^[^=].*\\.el$")))
(save-excursion (save-excursion
(set-buffer (find-file-noselect (set-buffer (find-file-noselect
(if (file-exists-p generated-autoload-file) (if (file-exists-p generated-autoload-file)
generated-autoload-file (expand-file-name generated-autoload-file)
(expand-file-name generated-autoload-file (expand-file-name generated-autoload-file
dir)))) dir))))
(save-excursion (save-excursion
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment