aboutsummaryrefslogtreecommitdiffstats
path: root/src/xselect.c
diff options
context:
space:
mode:
authorPaul Eggert2015-08-18 23:04:58 -0700
committerPaul Eggert2015-08-18 23:14:08 -0700
commit87fbe1a6cb6d212c69546bd10864288fcf034cc1 (patch)
treebfb6defd964894b8f8077cdaa245fe8e6da86d7e /src/xselect.c
parent67de1b6fa752df913ae00537234d1a18bca2543f (diff)
downloademacs-87fbe1a6cb6d212c69546bd10864288fcf034cc1.tar.gz
emacs-87fbe1a6cb6d212c69546bd10864288fcf034cc1.zip
Use new q ‘format’ flag when fixing quotes in C
* src/image.c (image_size_error): New function. All uses of image_error with "Invalid image size ..." changed to use it. * src/image.c (image_size_error, xbm_load_image, xbm_load) (xpm_load, xpm_load_image, xpm_load, pbm_load, png_load_body) (jpeg_load_body, tiff_load, gif_load, imagemagick_load_image) (imagemagick_load, svg_load, svg_load_image, gs_load) (x_kill_gs_process): * src/lread.c (load_warn_old_style_backquotes): * src/xfaces.c (load_pixmap): * src/xselect.c (x_clipboard_manager_error_1): Use %qs, not uLSQM and uRSQM. * src/syntax.c (Finternal_describe_syntax_value): Prefer Fsubstitute_command_keys to Fformat, as this lets us use AUTO_STRING. * src/xdisp.c (vadd_to_log): Use AUTO_STRING on the format argument, as it's now guaranteed to be ASCII. * src/xselect.c (x_clipboard_manager_error_2): Avoid grave accent in low-level stderr diagnostic.
Diffstat (limited to 'src/xselect.c')
-rw-r--r--src/xselect.c13
1 files changed, 6 insertions, 7 deletions
diff --git a/src/xselect.c b/src/xselect.c
index b54ddd83237..d4d4dc04b8d 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -2147,11 +2147,10 @@ x_clipboard_manager_save (Lisp_Object frame)
2147static Lisp_Object 2147static Lisp_Object
2148x_clipboard_manager_error_1 (Lisp_Object err) 2148x_clipboard_manager_error_1 (Lisp_Object err)
2149{ 2149{
2150 Lisp_Object format 2150 AUTO_STRING (format, "X clipboard manager error: %s\n\
2151 = build_string ("X clipboard manager error: %s\n" 2151If the problem persists, set %qs to nil.");
2152 "If the problem persists, set " 2152 AUTO_STRING (varname, "x-select-enable-clipboard-manager");
2153 uLSQM"x-select-enable-clipboard-manager"uRSQM" to nil."); 2153 CALLN (Fmessage, format, CAR (CDR (err)), varname);
2154 CALLN (Fmessage, format, CAR (CDR (err)));
2155 return Qnil; 2154 return Qnil;
2156} 2155}
2157 2156
@@ -2161,8 +2160,8 @@ static Lisp_Object
2161x_clipboard_manager_error_2 (Lisp_Object err) 2160x_clipboard_manager_error_2 (Lisp_Object err)
2162{ 2161{
2163 fprintf (stderr, "Error saving to X clipboard manager.\n\ 2162 fprintf (stderr, "Error saving to X clipboard manager.\n\
2164If the problem persists, set `x-select-enable-clipboard-manager' \ 2163If the problem persists, set '%s' \
2165to nil.\n"); 2164to nil.\n", "x-select-enable-clipboard-manager");
2166 return Qnil; 2165 return Qnil;
2167} 2166}
2168 2167