mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 00:31:01 -08:00
Code Issues Projects Releases Wiki Activity

Fix bug #6126.

Browse source 
w32fns.c: Include w32.h.
 (Fw32_shell_execute): Decode the error message before passing it
 to `error'.
This commit is contained in:
Eli Zaretskii 2010-05-07 20:08:31 +03:00
parent 59d93e8770
commit 5cba3209ef
2 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -1,5 +1,9 @@
2010-05-07 Eli Zaretskii <eliz@gnu.org>
* w32fns.c: Include w32.h.
(Fw32_shell_execute): Decode the error message before passing it
to `error'. (Bug#6126)
* msdos.c (dos_set_window_size):
* w16select.c (Fx_selection_exists_p): Use `Fsymbol_value (foo)'
instead of `XSYMBOL (foo)->value'.

14
src/w32fns.c
View file

@ -47,6 +47,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
#include "systime.h"
#include "termhooks.h"
#include "w32heap.h"
#include "w32.h"
#include "bitmaps/gray.xbm"
@ -6333,6 +6334,7 @@ an integer representing a ShowWindow flag:
Lisp_Object operation, document, parameters, show_flag;
{
Lisp_Object current_dir;
char *errstr;
CHECK_STRING (document);
@ -6353,7 +6355,17 @@ an integer representing a ShowWindow flag:
XINT (show_flag) : SW_SHOWDEFAULT))
> 32)
return Qt;
error ("ShellExecute failed: %s", w32_strerror (0));
errstr = w32_strerror (0);
/* The error string might be encoded in the locale's encoding. */
if (!NILP (Vlocale_coding_system))
{
Lisp_Object decoded =
code_convert_string_norecord (make_unibyte_string (errstr,
strlen (errstr)),
Vlocale_coding_system, 0);
errstr = (char *)SDATA (decoded);
}
error ("ShellExecute failed: %s", errstr);
}
/* Lookup virtual keycode from string representing the name of a