X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/066b17df681fabb40108d719086669957aebbc51..3ebf06300b8186feac5e9b436ca263dc908ed886:/src/callproc.c

diff --git a/src/callproc.c b/src/callproc.c
index 63ab9bf70d..e1fe8ed95d 100644
--- 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);