From: Roland McGrath Date: Mon, 17 Feb 1997 21:44:59 +0000 (+0000) Subject: (update-autoloads-from-directory): Get absolute file names from X-Git-Tag: emacs-20.1~2950 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2884cbf0e87b6581b626562afee7709f7d63213f;p=emacs.git (update-autoloads-from-directory): Get absolute file names from directory-files, and expand generated-autoload-file. Subdirs happy now. --- 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