diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-03 05:56:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-03 05:56:36 +0000 |
| commit | f24a9a8c1904f6ed2e41980704d893bf16e44fac (patch) | |
| tree | 4f2928c7544b2e10c386572b61b0e0f3e7a8c49e | |
| parent | e91f3b94ca73f17e38c943822ec1241bb1ab2ce7 (diff) | |
| download | emacs-f24a9a8c1904f6ed2e41980704d893bf16e44fac.tar.gz | |
(Fwrite_region): If FILENAME has no handler, see if VISIT has one.
| -rw-r--r-- | src/fileio.c | 3 |
1 files changed, 3 insertions, 0 deletions
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)) { |