# HG changeset patch # User Roland McGrath # Date 856215899 0 # Node ID 22c9b578e220c0131b535a217cf11ee2208514db # Parent 53c337a6e39d350b889f26473d0d1b458a849744 (update-autoloads-from-directory): Get absolute file names from directory-files, and expand generated-autoload-file. Subdirs happy now. diff -r 53c337a6e39d -r 22c9b578e220 lisp/emacs-lisp/autoload.el --- a/lisp/emacs-lisp/autoload.el Fri Feb 14 00:07:22 1997 +0000 +++ b/lisp/emacs-lisp/autoload.el Mon Feb 17 21:44:59 1997 +0000 @@ -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 ;; Keywords: maint @@ -377,11 +377,11 @@ 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