diff options
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/Makefile.in | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 3 |
3 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 070e2cf247d..ef07b826091 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2013-10-30 Glenn Morris <rgm@gnu.org> | 1 | 2013-10-30 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * Makefile.in (autoloads): Do not use abs_lisp. | ||
| 4 | |||
| 3 | * emacs-lisp/autoload.el (autoload-generate-file-autoloads): | 5 | * emacs-lisp/autoload.el (autoload-generate-file-autoloads): |
| 4 | `newline' does not respect `standard-output', so use `princ'. | 6 | `newline' does not respect `standard-output', so use `princ'. |
| 5 | 7 | ||
diff --git a/lisp/Makefile.in b/lisp/Makefile.in index ffd31efa1d7..ff9439d8951 100644 --- a/lisp/Makefile.in +++ b/lisp/Makefile.in | |||
| @@ -178,13 +178,15 @@ finder-data: doit | |||
| 178 | $(emacs) -l finder --eval '(setq generated-finder-keywords-file (unmsys--file-name "$(abs_lisp)/finder-inf.el"))' -f finder-compile-keywords-make-dist $$wins | 178 | $(emacs) -l finder --eval '(setq generated-finder-keywords-file (unmsys--file-name "$(abs_lisp)/finder-inf.el"))' -f finder-compile-keywords-make-dist $$wins |
| 179 | 179 | ||
| 180 | # The chmod +w is to handle env var CVSREAD=1. | 180 | # The chmod +w is to handle env var CVSREAD=1. |
| 181 | # Use expand-file-name rather than $abs_lisp so that Emacs does not | ||
| 182 | # get confused when it compares file-names for equality. | ||
| 181 | autoloads: $(LOADDEFS) doit | 183 | autoloads: $(LOADDEFS) doit |
| 182 | cd $(lisp) && chmod +w $(AUTOGEN_VCS) | 184 | cd $(lisp) && chmod +w $(AUTOGEN_VCS) |
| 183 | cd $(lisp) && $(setwins_almost); \ | 185 | cd $(lisp) && $(setwins_almost); \ |
| 184 | echo Directories: $$wins; \ | 186 | echo Directories: $$wins; \ |
| 185 | $(emacs) -l autoload \ | 187 | $(emacs) -l autoload \ |
| 186 | --eval '(setq autoload-builtin-package-versions t)' \ | 188 | --eval '(setq autoload-builtin-package-versions t)' \ |
| 187 | --eval '(setq generated-autoload-file (unmsys--file-name "$(abs_lisp)/loaddefs.el"))' \ | 189 | --eval '(setq generated-autoload-file (expand-file-name (unmsys--file-name "$(lisp)/loaddefs.el")))' \ |
| 188 | -f batch-update-autoloads $$wins | 190 | -f batch-update-autoloads $$wins |
| 189 | 191 | ||
| 190 | # This is required by the bootstrap-emacs target in ../src/Makefile, so | 192 | # This is required by the bootstrap-emacs target in ../src/Makefile, so |
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 099f06d9135..f94f74a5652 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -528,6 +528,9 @@ Return non-nil if and only if FILE adds no autoloads to OUTFILE | |||
| 528 | (if (stringp generated-autoload-load-name) | 528 | (if (stringp generated-autoload-load-name) |
| 529 | generated-autoload-load-name | 529 | generated-autoload-load-name |
| 530 | (autoload-file-load-name absfile))) | 530 | (autoload-file-load-name absfile))) |
| 531 | ;; FIXME? Comparing file-names for equality with just equal | ||
| 532 | ;; is fragile, eg if one has an automounter prefix and one | ||
| 533 | ;; does not, but both refer to the same physical file. | ||
| 531 | (when (and outfile | 534 | (when (and outfile |
| 532 | (not | 535 | (not |
| 533 | (if (memq system-type '(ms-dos windows-nt)) | 536 | (if (memq system-type '(ms-dos windows-nt)) |