Prefer 'Qfoo' to 'intern ("foo")'

[gnu-emacs] / src / callproc.c

diff --git a/src/callproc.c b/src/callproc.c
index 63ab9bf70db870015d8e79aa4c231f93c3d81519..e1fe8ed95dfc49c853b202b82597b15adafa0b2e 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1020,7 +1020,7 @@ create_temp_file (ptrdiff_t nargs, Lisp_Object *args,
     specbind (intern ("coding-system-for-write"), val);
     /* POSIX lets mk[s]temp use "."; don't invoke jka-compr if we
        happen to get a ".Z" suffix.  */
-    specbind (intern ("file-name-handler-alist"), Qnil);
+    specbind (Qfile_name_handler_alist, Qnil);
     write_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil, fd);
 
     unbind_to (count1, Qnil);