# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757665523 0
# Node ID 7ac1e6f1565f3ed57502bffdec58f6a4dc43c5ff
# Parent  c3677267e74de038e54baf1340d176120d0f09a9
Don't include syntax.h.

(Qget_file_buffer): New variable.
(syms_of_buffer): Set up Qget_file_buffer.
(Fget_file_buffer): For magic file names, run the handler.

diff -r c3677267e74d -r 7ac1e6f1565f src/buffer.c
--- a/src/buffer.c	Tue Jan 04 06:37:51 1994 +0000
+++ b/src/buffer.c	Tue Jan 04 06:38:43 1994 +0000
@@ -34,7 +34,6 @@
 #include "window.h"
 #include "commands.h"
 #include "buffer.h"
-#include "syntax.h"
 #include "indent.h"
 #include "blockinput.h"
 
@@ -130,6 +129,8 @@
 
 Lisp_Object Qkill_buffer_hook;
 
+Lisp_Object Qget_file_buffer;
+
 Lisp_Object Qoverlayp;
 
 Lisp_Object Qmodification_hooks;
@@ -175,9 +176,17 @@
      register Lisp_Object filename;
 {
   register Lisp_Object tail, buf, tem;
+  Lisp_Object handler;
+
   CHECK_STRING (filename, 0);
   filename = Fexpand_file_name (filename, Qnil);
 
+  /* If the file name has special constructs in it,
+     call the corresponding file handler.  */
+  handler = Ffind_file_name_handler (filename);
+  if (!NILP (handler))
+    return call2 (handler, Qget_file_buffer, filename);
+
   for (tail = Vbuffer_alist; CONSP (tail); tail = XCONS (tail)->cdr)
     {
       buf = Fcdr (XCONS (tail)->car);
@@ -2175,6 +2184,8 @@
   Qinsert_in_front_hooks = intern ("insert-in-front-hooks");
   staticpro (&Qinsert_behind_hooks);
   Qinsert_behind_hooks = intern ("insert-behind-hooks");
+  staticpro (&Qget_file_buffer);
+  Qget_file_buffer = intern ("get-file-buffer");
 
   Qoverlayp = intern ("overlayp");