Mercurial > hg > xemacs-beta
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 |