comparison src/buffer.c @ 707:a307f9a2021d

[xemacs-hg @ 2001-12-20 05:49:28 by andyp] sync with 21-4-6-windows
author andyp
date Thu, 20 Dec 2001 05:49:48 +0000
parents fdefd0186b75
children 943eaba38521
comparison
equal deleted inserted replaced
706:c9bf82d465b5 707:a307f9a2021d
352 } 352 }
353 353
354 struct buffer * 354 struct buffer *
355 decode_buffer (Lisp_Object buffer, int allow_string) 355 decode_buffer (Lisp_Object buffer, int allow_string)
356 { 356 {
357 if (NILP (buffer)) 357 if (NILP (buffer) || (!POINTER_TYPE_P( XTYPE(buffer))))
358 return current_buffer; 358 return current_buffer;
359 359
360 if (allow_string && STRINGP (buffer)) 360 if (allow_string && STRINGP (buffer))
361 return XBUFFER (get_buffer (buffer, 1)); 361 return XBUFFER (get_buffer (buffer, 1));
362 362