From 2884cbf0e87b6581b626562afee7709f7d63213f Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Mon, 17 Feb 1997 21:44:59 +0000 Subject: [PATCH] (update-autoloads-from-directory): Get absolute file names from directory-files, and expand generated-autoload-file. Subdirs happy now. --- lisp/emacs-lisp/autoload.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 4614a5c42cb..a4289b6800d 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -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 @@ 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 -- 2.39.5