Sync up with r21-4-6-utf-2000-0_19-new-case-jc3-3.

[chise/xemacs-chise.git-] / src / buffer.c

diff --git a/src/buffer.c b/src/buffer.c
index 1f3d66f..5790dc9 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -358,7 +358,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))