diff options
| -rw-r--r-- | leim/ChangeLog | 5 | ||||
| -rw-r--r-- | leim/Makefile.in | 4 | ||||
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/Makefile.in | 16 | ||||
| -rw-r--r-- | lisp/subr.el | 6 |
5 files changed, 27 insertions, 13 deletions
diff --git a/leim/ChangeLog b/leim/ChangeLog index f86fb23eb5e..2ebda357d21 100644 --- a/leim/ChangeLog +++ b/leim/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2013-05-25 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * Makefile.in (leim-list.el, check-declare): Replace | ||
| 4 | reveal-filename with unmsys--filename. | ||
| 5 | |||
| 1 | 2013-05-16 Eli Zaretskii <eliz@gnu.org> | 6 | 2013-05-16 Eli Zaretskii <eliz@gnu.org> |
| 2 | 7 | ||
| 3 | * Makefile.in (leim-list.el, check-declare): Use reveal-filename. | 8 | * Makefile.in (leim-list.el, check-declare): Use reveal-filename. |
diff --git a/leim/Makefile.in b/leim/Makefile.in index a660d9b56e0..8c067a90de0 100644 --- a/leim/Makefile.in +++ b/leim/Makefile.in | |||
| @@ -140,7 +140,7 @@ leim-list.el: ${TIT_MISC} ${srcdir}/leim-ext.el | |||
| 140 | --eval "(update-leim-list-file \".\")" ; \ | 140 | --eval "(update-leim-list-file \".\")" ; \ |
| 141 | else \ | 141 | else \ |
| 142 | ${RUN_EMACS} -l ${buildlisppath}/international/quail \ | 142 | ${RUN_EMACS} -l ${buildlisppath}/international/quail \ |
| 143 | --eval "(update-leim-list-file \".\" (reveal-filename \"${srcdir}\"))" ; \ | 143 | --eval "(update-leim-list-file \".\" (unmsys--filename \"${srcdir}\"))" ; \ |
| 144 | fi | 144 | fi |
| 145 | sed -n '/^[^;]/ p' < ${srcdir}/leim-ext.el >> $@ | 145 | sed -n '/^[^;]/ p' < ${srcdir}/leim-ext.el >> $@ |
| 146 | 146 | ||
| @@ -199,4 +199,4 @@ extraclean: maintainer-clean | |||
| 199 | 199 | ||
| 200 | check-declare: | 200 | check-declare: |
| 201 | $(RUN_EMACS) -l $(buildlisppath)/emacs-lisp/check-declare \ | 201 | $(RUN_EMACS) -l $(buildlisppath)/emacs-lisp/check-declare \ |
| 202 | --eval '(check-declare-directory (reveal-filename "$(srcdir)"))' | 202 | --eval '(check-declare-directory (unmsys--filename "$(srcdir)"))' |
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index efa6f06cbb1..f9eaf71aad4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,12 @@ | |||
| 1 | 2013-05-25 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * subr.el (unmsys--filename): Renamed from reveal-filename. | ||
| 4 | |||
| 5 | * Makefile.in (custom-deps, finder-data, autoloads) | ||
| 6 | ($(MH_E_DIR)/mh-loaddefs.el, $(TRAMP_DIR)/tramp-loaddefs.el) | ||
| 7 | ($(CAL_DIR)/cal-loaddefs.el, $(CAL_DIR)/diary-loaddefs.el) | ||
| 8 | ($(CAL_DIR)/hol-loaddefs.el): All users changed. | ||
| 9 | |||
| 1 | 2013-05-25 Stefan Monnier <monnier@iro.umontreal.ca> | 10 | 2013-05-25 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 11 | ||
| 3 | * emacs-lisp/lisp.el (lisp-completion-at-point): Don't use | 12 | * emacs-lisp/lisp.el (lisp-completion-at-point): Don't use |
diff --git a/lisp/Makefile.in b/lisp/Makefile.in index 138ad5abfa6..741f785429d 100644 --- a/lisp/Makefile.in +++ b/lisp/Makefile.in | |||
| @@ -164,21 +164,21 @@ $(lisp)/cus-load.el: | |||
| 164 | custom-deps: doit | 164 | custom-deps: doit |
| 165 | cd $(lisp); $(setwins_almost); \ | 165 | cd $(lisp); $(setwins_almost); \ |
| 166 | echo Directories: $$wins; \ | 166 | echo Directories: $$wins; \ |
| 167 | $(emacs) -l cus-dep --eval '(setq generated-custom-dependencies-file (reveal-filename "$(lisp)/cus-load.el"))' -f custom-make-dependencies $$wins | 167 | $(emacs) -l cus-dep --eval '(setq generated-custom-dependencies-file (unmsys--filename "$(lisp)/cus-load.el"))' -f custom-make-dependencies $$wins |
| 168 | 168 | ||
| 169 | $(lisp)/finder-inf.el: | 169 | $(lisp)/finder-inf.el: |
| 170 | $(MAKE) $(MFLAGS) finder-data | 170 | $(MAKE) $(MFLAGS) finder-data |
| 171 | finder-data: doit | 171 | finder-data: doit |
| 172 | cd $(lisp); $(setwins_almost); \ | 172 | cd $(lisp); $(setwins_almost); \ |
| 173 | echo Directories: $$wins; \ | 173 | echo Directories: $$wins; \ |
| 174 | $(emacs) -l finder --eval '(setq generated-finder-keywords-file (reveal-filename "$(lisp)/finder-inf.el"))' -f finder-compile-keywords-make-dist $$wins | 174 | $(emacs) -l finder --eval '(setq generated-finder-keywords-file (unmsys--filename "$(lisp)/finder-inf.el"))' -f finder-compile-keywords-make-dist $$wins |
| 175 | 175 | ||
| 176 | # The chmod +w is to handle env var CVSREAD=1. | 176 | # The chmod +w is to handle env var CVSREAD=1. |
| 177 | autoloads: $(LOADDEFS) doit | 177 | autoloads: $(LOADDEFS) doit |
| 178 | cd $(lisp) && chmod +w $(AUTOGEN_VCS) | 178 | cd $(lisp) && chmod +w $(AUTOGEN_VCS) |
| 179 | cd $(lisp); $(setwins_almost); \ | 179 | cd $(lisp); $(setwins_almost); \ |
| 180 | echo Directories: $$wins; \ | 180 | echo Directories: $$wins; \ |
| 181 | $(emacs) -l autoload --eval '(setq generated-autoload-file (reveal-filename "$(lisp)/loaddefs.el"))' -f batch-update-autoloads $$wins | 181 | $(emacs) -l autoload --eval '(setq generated-autoload-file (unmsys--filename "$(lisp)/loaddefs.el"))' -f batch-update-autoloads $$wins |
| 182 | 182 | ||
| 183 | # This is required by the bootstrap-emacs target in ../src/Makefile, so | 183 | # This is required by the bootstrap-emacs target in ../src/Makefile, so |
| 184 | # we know that if we have an emacs executable, we also have a subdirs.el. | 184 | # we know that if we have an emacs executable, we also have a subdirs.el. |
| @@ -373,7 +373,7 @@ mh-autoloads: $(MH_E_DIR)/mh-loaddefs.el | |||
| 373 | $(MH_E_DIR)/mh-loaddefs.el: $(MH_E_SRC) | 373 | $(MH_E_DIR)/mh-loaddefs.el: $(MH_E_SRC) |
| 374 | $(emacs) -l autoload \ | 374 | $(emacs) -l autoload \ |
| 375 | --eval "(setq generate-autoload-cookie \";;;###mh-autoload\")" \ | 375 | --eval "(setq generate-autoload-cookie \";;;###mh-autoload\")" \ |
| 376 | --eval "(setq generated-autoload-file (reveal-filename \"$@\"))" \ | 376 | --eval "(setq generated-autoload-file (unmsys--filename \"$@\"))" \ |
| 377 | --eval "(setq make-backup-files nil)" \ | 377 | --eval "(setq make-backup-files nil)" \ |
| 378 | -f batch-update-autoloads $(MH_E_DIR) | 378 | -f batch-update-autoloads $(MH_E_DIR) |
| 379 | 379 | ||
| @@ -391,7 +391,7 @@ TRAMP_SRC = $(TRAMP_DIR)/tramp.el $(TRAMP_DIR)/tramp-adb.el \ | |||
| 391 | $(TRAMP_DIR)/tramp-loaddefs.el: $(TRAMP_SRC) | 391 | $(TRAMP_DIR)/tramp-loaddefs.el: $(TRAMP_SRC) |
| 392 | $(emacs) -l autoload \ | 392 | $(emacs) -l autoload \ |
| 393 | --eval "(setq generate-autoload-cookie \";;;###tramp-autoload\")" \ | 393 | --eval "(setq generate-autoload-cookie \";;;###tramp-autoload\")" \ |
| 394 | --eval "(setq generated-autoload-file (reveal-filename \"$@\"))" \ | 394 | --eval "(setq generated-autoload-file (unmsys--filename \"$@\"))" \ |
| 395 | --eval "(setq make-backup-files nil)" \ | 395 | --eval "(setq make-backup-files nil)" \ |
| 396 | -f batch-update-autoloads $(TRAMP_DIR) | 396 | -f batch-update-autoloads $(TRAMP_DIR) |
| 397 | 397 | ||
| @@ -413,21 +413,21 @@ CAL_SRC = $(CAL_DIR)/cal-bahai.el $(CAL_DIR)/cal-china.el \ | |||
| 413 | $(CAL_DIR)/cal-loaddefs.el: $(CAL_SRC) | 413 | $(CAL_DIR)/cal-loaddefs.el: $(CAL_SRC) |
| 414 | $(emacs) -l autoload \ | 414 | $(emacs) -l autoload \ |
| 415 | --eval "(setq generate-autoload-cookie \";;;###cal-autoload\")" \ | 415 | --eval "(setq generate-autoload-cookie \";;;###cal-autoload\")" \ |
| 416 | --eval "(setq generated-autoload-file (reveal-filename \"$@\"))" \ | 416 | --eval "(setq generated-autoload-file (unmsys--filename \"$@\"))" \ |
| 417 | --eval "(setq make-backup-files nil)" \ | 417 | --eval "(setq make-backup-files nil)" \ |
| 418 | -f batch-update-autoloads $(CAL_DIR) | 418 | -f batch-update-autoloads $(CAL_DIR) |
| 419 | 419 | ||
| 420 | $(CAL_DIR)/diary-loaddefs.el: $(CAL_SRC) | 420 | $(CAL_DIR)/diary-loaddefs.el: $(CAL_SRC) |
| 421 | $(emacs) -l autoload \ | 421 | $(emacs) -l autoload \ |
| 422 | --eval "(setq generate-autoload-cookie \";;;###diary-autoload\")" \ | 422 | --eval "(setq generate-autoload-cookie \";;;###diary-autoload\")" \ |
| 423 | --eval "(setq generated-autoload-file (reveal-filename \"$@\"))" \ | 423 | --eval "(setq generated-autoload-file (unmsys--filename \"$@\"))" \ |
| 424 | --eval "(setq make-backup-files nil)" \ | 424 | --eval "(setq make-backup-files nil)" \ |
| 425 | -f batch-update-autoloads $(CAL_DIR) | 425 | -f batch-update-autoloads $(CAL_DIR) |
| 426 | 426 | ||
| 427 | $(CAL_DIR)/hol-loaddefs.el: $(CAL_SRC) | 427 | $(CAL_DIR)/hol-loaddefs.el: $(CAL_SRC) |
| 428 | $(emacs) -l autoload \ | 428 | $(emacs) -l autoload \ |
| 429 | --eval "(setq generate-autoload-cookie \";;;###holiday-autoload\")" \ | 429 | --eval "(setq generate-autoload-cookie \";;;###holiday-autoload\")" \ |
| 430 | --eval "(setq generated-autoload-file (reveal-filename \"$@\"))" \ | 430 | --eval "(setq generated-autoload-file (unmsys--filename \"$@\"))" \ |
| 431 | --eval "(setq make-backup-files nil)" \ | 431 | --eval "(setq make-backup-files nil)" \ |
| 432 | -f batch-update-autoloads $(CAL_DIR) | 432 | -f batch-update-autoloads $(CAL_DIR) |
| 433 | 433 | ||
diff --git a/lisp/subr.el b/lisp/subr.el index 9b2c8157ac8..97564875067 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -4697,14 +4697,14 @@ as alpha versions." | |||
| 4697 | 4697 | ||
| 4698 | ;; This is used in lisp/Makefile.in and in leim/Makefile.in to | 4698 | ;; This is used in lisp/Makefile.in and in leim/Makefile.in to |
| 4699 | ;; generate file names for autoloads, custom-deps, and finder-data. | 4699 | ;; generate file names for autoloads, custom-deps, and finder-data. |
| 4700 | (defun reveal-filename (file) | 4700 | (defun unmsys--filename (file) |
| 4701 | "Produce the real file name for FILE. | 4701 | "Produce the canonical file name for FILE from its MSYS form. |
| 4702 | 4702 | ||
| 4703 | On systems other than MS-Windows, just returns FILE. | 4703 | On systems other than MS-Windows, just returns FILE. |
| 4704 | On MS-Windows, converts /d/foo/bar form of file names | 4704 | On MS-Windows, converts /d/foo/bar form of file names |
| 4705 | passed by MSYS Make into d:/foo/bar that Emacs can grok. | 4705 | passed by MSYS Make into d:/foo/bar that Emacs can grok. |
| 4706 | 4706 | ||
| 4707 | This function is called from lisp/Makefile." | 4707 | This function is called from lisp/Makefile and leim/Makefile." |
| 4708 | (when (and (eq system-type 'windows-nt) | 4708 | (when (and (eq system-type 'windows-nt) |
| 4709 | (string-match "\\`/[a-zA-Z]/" file)) | 4709 | (string-match "\\`/[a-zA-Z]/" file)) |
| 4710 | (setq file (concat (substring file 1 2) ":" (substring file 2)))) | 4710 | (setq file (concat (substring file 1 2) ":" (substring file 2)))) |