Mercurial > hg > xemacs-beta

comparison src/gui-msw.c @ 400:a86b2b5e0111 r21-2-30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
90 int ret; 90 int ret;
91 struct gcpro gcpro1, gcpro2; 91 struct gcpro gcpro1, gcpro2;
92 92
93 CHECK_STRING (document); 93 CHECK_STRING (document);
94 94
95 /* Just get the filename if we were given it. */
96 document = Ffile_name_nondirectory (document);
97
98 if (NILP (current_dir)) 95 if (NILP (current_dir))
99 current_dir = current_buffer->directory; 96 current_dir = current_buffer->directory;
100 97
101 GCPRO2 (current_dir, document); 98 GCPRO2 (current_dir, document);
102 99
116 if (STRINGP (document)) 113 if (STRINGP (document))
117 { 114 {
118 TO_EXTERNAL_FORMAT (LISP_STRING, document, 115 TO_EXTERNAL_FORMAT (LISP_STRING, document,
119 C_STRING_ALLOCA, f, 116 C_STRING_ALLOCA, f,
120 Qfile_name); 117 Qfile_name);
118 #ifdef __CYGWIN32__
119 CYGWIN_WIN32_PATH (f, doc);
120 #else
121 doc = f; 121 doc = f;
122 #endif
122 } 123 }
123 124
124 UNGCPRO; 125 UNGCPRO;
125 126
126 ret = (int) ShellExecute (NULL, 127 ret = (int) ShellExecute (NULL,