mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

* macfns.c (Fx_file_dialog): Save As dialog includes only the

Browse Source 
file name in the text box.
This commit is contained in:
Steven Tamm 2005-01-16 00:17:25 +00:00
parent 9cdd488421
commit 42afbcda13
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

@ -1,3 +1,8 @@
2005-01-15 Steven Tamm <steventamm@mac.com>
* macfns.c (Fx_file_dialog): Save As dialog includes only the
file name in the text box.
2005-01-15 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* macfns.c (x_set_foreground_color, x_set_background_color): Sync

9
src/macfns.c
View File

@ -4356,9 +4356,12 @@ If ONLY-DIR-P is non-nil, the user can only select directories. */)
if (!NILP(default_filename))
{
saveName =
cfstring_create_with_utf8_cstring (SDATA (ENCODE_UTF_8
(default_filename)));
Lisp_Object utf8 = ENCODE_UTF_8 (default_filename);
char *begPtr = SDATA(utf8);
char *filePtr = begPtr + SBYTES(utf8);
while (filePtr != begPtr && !IS_DIRECTORY_SEP(filePtr[-1]))
filePtr--;
saveName = cfstring_create_with_utf8_cstring (filePtr);
options.saveFileName = saveName;
options.optionFlags |= kNavSelectDefaultLocation;
}