X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fbuffer.c;h=8685e5a9079ff3bcd0866a7d23b135461f1bac88;hb=426fe636212336bb32a5e6f187c4d623709fa57d;hp=a1620b750d288b88c511bd3ca9bac91a596ff754;hpb=21db8709c0c2dcedbd278c7fe571290d5ce80a71;p=chise%2Fxemacs-chise.git

diff --git a/src/buffer.c b/src/buffer.c
index a1620b7..8685e5a 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -356,7 +356,7 @@ get_buffer (Lisp_Object name, int error_if_deleted_or_does_not_exist)
 struct buffer *
 decode_buffer (Lisp_Object buffer, int allow_string)
 {
-  if (NILP (buffer))
+  if (NILP (buffer) || (!POINTER_TYPE_P( XTYPE(buffer))))
     return current_buffer;
 
   if (allow_string && STRINGP (buffer))