Mercurial > emacs

changeset 16995:22c9b578e220

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(update-autoloads-from-directory): Get absolute file names from directory-files, and expand generated-autoload-file. Subdirs happy now.
author Roland McGrath <roland@gnu.org>
date Mon, 17 Feb 1997 21:44:59 +0000
parents 53c337a6e39d
children 2d67501c45b9
files lisp/emacs-lisp/autoload.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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 <roland@gnu.ai.mit.edu>
 ;; 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