From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 3 Feb 1994 05:56:36 +0000 (+0000)
Subject: (Fwrite_region): If FILENAME has no handler, see if VISIT has one.
X-Git-Tag: emacs-19.34~10093
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b56ad927c40bc61d53b07ec343a75f202d432dbf;p=emacs.git

(Fwrite_region): If FILENAME has no handler, see if VISIT has one.
---

diff --git a/src/fileio.c b/src/fileio.c
index b1066995ac5..b70f7121e8f 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2803,6 +2803,9 @@ to the file, instead of any buffer contents, and END is ignored.")
   /* If the file name has special constructs in it,
      call the corresponding file handler.  */
   handler = Ffind_file_name_handler (filename);
+  /* If FILENAME has no handler, see if VISIT has one.  */
+  if (NILP (handler) && XTYPE (visit) == Lisp_String)
+    handler = Ffind_file_name_handler (visit);    
 
   if (!NILP (handler))
     {