From 283430a1dfecdb309bd6b5bfee0c996648e3bf6a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 23 Nov 2011 20:39:38 +0200 Subject: [PATCH] Fix "make autoloads" on MS-Windows. lisp/emacs-lisp/autoload.el (autoload-generate-file-autoloads): On MS-DOS and MS-Windows, compare with loaddefs.el case-insensitively. --- lisp/ChangeLog | 6 ++++++ lisp/emacs-lisp/autoload.el | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 896d08ea163..499eaea9cb6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2011-11-23 Eli Zaretskii + + * emacs-lisp/autoload.el (autoload-generate-file-autoloads): On + MS-DOS and MS-Windows, compare with loaddefs.el + case-insensitively. + 2011-11-23 Mark Lillibridge (tiny change) * mail/unrmail.el (unrmail): Always add blank line. (Bug#7743) diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index df98271832a..19a4d44273d 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -446,7 +446,11 @@ Return non-nil if and only if FILE adds no autoloads to OUTFILE generated-autoload-load-name (autoload-file-load-name absfile))) (when (and outfile - (not (equal outfile (autoload-generated-file)))) + (not + (if (memq system-type '(ms-dos windows-nt)) + (equal (downcase outfile) + (downcase (autoload-generated-file))) + (equal outfile (autoload-generated-file))))) (setq otherbuf t)) (save-excursion (save-restriction -- 2.39.5