Mercurial > emacs

comparison src/unexsol.c @ 47472:6510ca25352f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(unexec): Don't downcase first letter of error msg.
author Richard M. Stallman <rms@gnu.org>
date Fri, 13 Sep 2002 19:35:58 +0000
parents d671a35d55f3
children 695cf19ef79e
comparison
equal deleted inserted replaced
47471:8ed65bf4ee3d 47472:6510ca25352f
22 data = Fcons (build_string (new_name), Qnil); 22 data = Fcons (build_string (new_name), Qnil);
23 synchronize_system_messages_locale (); 23 synchronize_system_messages_locale ();
24 errstring = code_convert_string_norecord (build_string (dlerror ()), 24 errstring = code_convert_string_norecord (build_string (dlerror ()),
25 Vlocale_coding_system, 0); 25 Vlocale_coding_system, 0);
26 26
27 /* System error messages are capitalized. Downcase the initial
28 unless it is followed by a slash. */
29 if (SREF (errstring, 1) != '/')
30 SSET (errstring, 0, DOWNCASE (SREF (errstring, 0)));
31
32 Fsignal (Qfile_error, 27 Fsignal (Qfile_error,
33 Fcons (build_string ("Cannot unexec"), Fcons (errstring, data))); 28 Fcons (build_string ("Cannot unexec"), Fcons (errstring, data)));
34 } 29 }