aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaniel Colascione2012-11-18 17:39:37 -0800
committerDaniel Colascione2012-11-18 17:39:37 -0800
commit6e9f7997b36d21004794fa2b8a550729cbabd81a (patch)
tree593f2e582974d5fd2157204f1fa6eeef425a2f55
parent031b541f1943a49ee06944cc5957dab3f7baedf9 (diff)
downloademacs-6e9f7997b36d21004794fa2b8a550729cbabd81a.tar.gz
emacs-6e9f7997b36d21004794fa2b8a550729cbabd81a.zip
Rename cygwin_convert_path* to cygwin_convert_file_name*
-rw-r--r--etc/NEWS7
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/term/w32-win.el4
-rw-r--r--src/ChangeLog9
-rw-r--r--src/cygw32.c20
-rw-r--r--src/w32fns.c6
6 files changed, 34 insertions, 17 deletions
diff --git a/etc/NEWS b/etc/NEWS
index 57e40982af6..c906640d80e 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1034,9 +1034,10 @@ takes precedence over most other maps for a short while (normally one key).
1034Pass --with-w32 to configure. The default remains the X11 interface. 1034Pass --with-w32 to configure. The default remains the X11 interface.
1035 1035
1036** Two new functions are available in Cygwin builds: 1036** Two new functions are available in Cygwin builds:
1037`cygwin-convert-path-from-windows' and `cygwin-convert-path-to-windows'. 1037`cygwin-convert-file-name-from-windows' and
1038These functions allow Lisp code to access the Cygwin file-name mapping 1038`cygwin-convert-file-name-to-windows'. These functions allow Lisp
1039machinery to convert between Cygwin and Windows-native file names. 1039code to access the Cygwin file-name mapping machinery to convert
1040between Cygwin and Windows-native file and directory names.
1040 1041
1041** When invoked with the -nw switch to run on the Windows text-mode terminal, 1042** When invoked with the -nw switch to run on the Windows text-mode terminal,
1042Emacs now supports mouse highlight, help-echo (in the echo area), and 1043Emacs now supports mouse highlight, help-echo (in the echo area), and
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca65e431964..26b4e6bb8c7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12012-11-19 Daniel Colascione <dancol@dancol.org>
2
3 * term/w32-win.el (cygwin-convert-path-from-windows): Accomodate
4 rename of cygwin_convert_path* to cygwin_convert_file_name*.
5
12012-11-18 Chong Yidong <cyd@gnu.org> 62012-11-18 Chong Yidong <cyd@gnu.org>
2 7
3 * filecache.el (file-cache--read-list): New function. 8 * filecache.el (file-cache--read-list): New function.
diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 42e09b65750..95dab10101b 100644
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -91,7 +91,7 @@
91(declare-function w32-send-sys-command "w32fns.c") 91(declare-function w32-send-sys-command "w32fns.c")
92(declare-function set-message-beep "w32fns.c") 92(declare-function set-message-beep "w32fns.c")
93 93
94(declare-function cygwin-convert-path-from-windows "cygw32.c" 94(declare-function cygwin-convert-file-name-from-windows "cygw32.c"
95 (path &optional absolute_p)) 95 (path &optional absolute_p))
96 96
97;; Conditional on new-fontset so bootstrapping works on non-GUI compiles 97;; Conditional on new-fontset so bootstrapping works on non-GUI compiles
@@ -108,7 +108,7 @@
108 108
109(defun w32-handle-dropped-file (window file-name) 109(defun w32-handle-dropped-file (window file-name)
110 (let ((f (if (eq system-type 'cygwin) 110 (let ((f (if (eq system-type 'cygwin)
111 (cygwin-convert-path-from-windows file-name t) 111 (cygwin-convert-file-name-from-windows file-name t)
112 (subst-char-in-string ?\\ ?/ file-name))) 112 (subst-char-in-string ?\\ ?/ file-name)))
113 (coding (or file-name-coding-system 113 (coding (or file-name-coding-system
114 default-file-name-coding-system))) 114 default-file-name-coding-system)))
diff --git a/src/ChangeLog b/src/ChangeLog
index 2a0c0e6822d..89c4e273715 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
12012-11-19 Daniel Colascione <dancol@dancol.org>
2
3 * w32fns.c (Fx_file_dialog):
4 (Fx_file_dialog): Accomodate rename of cygwin_convert_path* to
5 cygwin_convert_file_name*.
6
7 * cygw32.c (Fcygwin_convert_path_to_windows, syms_of_cygw32):
8 Rename cygwin_convert_path* to cygwin_convert_file_name*.
9
12012-11-18 Paul Eggert <eggert@cs.ucla.edu> 102012-11-18 Paul Eggert <eggert@cs.ucla.edu>
2 11
3 * nsterm.m (ns_select): Send SIGIO only to self, not to process group. 12 * nsterm.m (ns_select): Send SIGIO only to self, not to process group.
diff --git a/src/cygw32.c b/src/cygw32.c
index 54f2076a891..d9777d5e22e 100644
--- a/src/cygw32.c
+++ b/src/cygw32.c
@@ -106,22 +106,24 @@ conv_filename_from_w32_unicode (const wchar_t* in, int absolute_p)
106 return unbind_to (count, DECODE_FILE (converted)); 106 return unbind_to (count, DECODE_FILE (converted));
107} 107}
108 108
109DEFUN ("cygwin-convert-path-to-windows", 109DEFUN ("cygwin-convert-file-name-to-windows",
110 Fcygwin_convert_path_to_windows, Scygwin_convert_path_to_windows, 110 Fcygwin_convert_file_name_to_windows,
111 Scygwin_convert_file_name_to_windows,
111 1, 2, 0, 112 1, 2, 0,
112 doc: /* Convert PATH to a Windows path. If ABSOLUTE-P if 113 doc: /* Convert PATH to a Windows path. If ABSOLUTE-P is
113 non-nil, return an absolute path.*/) 114non-nil, return an absolute path.*/)
114 (Lisp_Object path, Lisp_Object absolute_p) 115 (Lisp_Object path, Lisp_Object absolute_p)
115{ 116{
116 return from_unicode ( 117 return from_unicode (
117 conv_filename_to_w32_unicode (path, EQ (absolute_p, Qnil) ? 0 : 1)); 118 conv_filename_to_w32_unicode (path, EQ (absolute_p, Qnil) ? 0 : 1));
118} 119}
119 120
120DEFUN ("cygwin-convert-path-from-windows", 121DEFUN ("cygwin-convert-file-name-from-windows",
121 Fcygwin_convert_path_from_windows, Scygwin_convert_path_from_windows, 122 Fcygwin_convert_file_name_from_windows,
123 Scygwin_convert_file_name_from_windows,
122 1, 2, 0, 124 1, 2, 0,
123 doc: /* Convert a Windows path to a Cygwin path. If ABSOLUTE-P 125 doc: /* Convert a Windows path to a Cygwin path. If ABSOLUTE-P
124 if non-nil, return an absolute path.*/) 126is non-nil, return an absolute path.*/)
125 (Lisp_Object path, Lisp_Object absolute_p) 127 (Lisp_Object path, Lisp_Object absolute_p)
126{ 128{
127 return conv_filename_from_w32_unicode (to_unicode (path, &path), 129 return conv_filename_from_w32_unicode (to_unicode (path, &path),
@@ -131,6 +133,6 @@ DEFUN ("cygwin-convert-path-from-windows",
131void 133void
132syms_of_cygw32 (void) 134syms_of_cygw32 (void)
133{ 135{
134 defsubr (&Scygwin_convert_path_from_windows); 136 defsubr (&Scygwin_convert_file_name_from_windows);
135 defsubr (&Scygwin_convert_path_to_windows); 137 defsubr (&Scygwin_convert_file_name_to_windows);
136} 138}
diff --git a/src/w32fns.c b/src/w32fns.c
index ed5625e802c..90f5b1695ea 100644
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -6167,9 +6167,9 @@ Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
6167 filename = empty_unibyte_string; 6167 filename = empty_unibyte_string;
6168 6168
6169#ifdef CYGWIN 6169#ifdef CYGWIN
6170 dir = Fcygwin_convert_path_to_windows (dir, Qt); 6170 dir = Fcygwin_convert_file_name_to_windows (dir, Qt);
6171 if (SCHARS (filename) > 0) 6171 if (SCHARS (filename) > 0)
6172 filename = Fcygwin_convert_path_to_windows (filename, Qnil); 6172 filename = Fcygwin_convert_file_name_to_windows (filename, Qnil);
6173#endif 6173#endif
6174 6174
6175 CHECK_STRING (dir); 6175 CHECK_STRING (dir);
@@ -6270,7 +6270,7 @@ Otherwise, if ONLY-DIR-P is non-nil, the user can only select directories. */)
6270#endif /* NTGUI_UNICODE */ 6270#endif /* NTGUI_UNICODE */
6271 6271
6272#ifdef CYGWIN 6272#ifdef CYGWIN
6273 filename = Fcygwin_convert_path_from_windows (filename, Qt); 6273 filename = Fcygwin_convert_file_name_from_windows (filename, Qt);
6274#endif /* CYGWIN */ 6274#endif /* CYGWIN */
6275 6275
6276 /* Strip the dummy filename off the end of the string if we 6276 /* Strip the dummy filename off the end of the string if we