aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/subr.el
diff options
context:
space:
mode:
authorEli Zaretskii2013-05-25 10:19:50 +0300
committerEli Zaretskii2013-05-25 10:19:50 +0300
commita052ef3bef1bc3e461cceeb3d6ed66cababa2449 (patch)
tree8517e5ff961deec09ce072b6d97b8ae41427a9ab /lisp/subr.el
parentdf76dacbd1f6830c96cf63053efe776d40c0e84d (diff)
downloademacs-a052ef3bef1bc3e461cceeb3d6ed66cababa2449.tar.gz
emacs-a052ef3bef1bc3e461cceeb3d6ed66cababa2449.zip
Rename reveal-filename into unmsys--filename.
lisp/subr.el (unmsys--filename): Renamed from reveal-filename. lisp/Makefile.in (custom-deps, finder-data, autoloads) ($(MH_E_DIR)/mh-loaddefs.el, $(TRAMP_DIR)/tramp-loaddefs.el) ($(CAL_DIR)/cal-loaddefs.el, $(CAL_DIR)/diary-loaddefs.el) ($(CAL_DIR)/hol-loaddefs.el): All users changed. leim/Makefile.in (leim-list.el, check-declare): Replace reveal-filename with unmsys--filename.
Diffstat (limited to 'lisp/subr.el')
-rw-r--r--lisp/subr.el6
1 files changed, 3 insertions, 3 deletions
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
4703On systems other than MS-Windows, just returns FILE. 4703On systems other than MS-Windows, just returns FILE.
4704On MS-Windows, converts /d/foo/bar form of file names 4704On MS-Windows, converts /d/foo/bar form of file names
4705passed by MSYS Make into d:/foo/bar that Emacs can grok. 4705passed by MSYS Make into d:/foo/bar that Emacs can grok.
4706 4706
4707This function is called from lisp/Makefile." 4707This 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))))