Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 8d2a9b52c682
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
458 FILENAME will be converted to its truename and used for searching, but 458 FILENAME will be converted to its truename and used for searching, but
459 the search will still be done on `buffer-file-name'. 459 the search will still be done on `buffer-file-name'.
460 */ 460 */
461 (filename)) 461 (filename))
462 { 462 {
463 /* This function can GC */ 463 /* This function can GC. GC checked 1997.04.06. */
464 REGISTER Lisp_Object tail, buf, tem; 464 REGISTER Lisp_Object tail, buf, tem;
465 struct gcpro gcpro1; 465 struct gcpro gcpro1;
466 466
467 #ifdef I18N3 467 #ifdef I18N3
468 /* DO NOT translate the filename. */ 468 /* DO NOT translate the filename. */
1235 if (EQ (buf, Vminibuffer_zero)) 1235 if (EQ (buf, Vminibuffer_zero))
1236 return Qnil; 1236 return Qnil;
1237 1237
1238 /* Or the echo area. */ 1238 /* Or the echo area. */
1239 if (EQ (buf, Vecho_area_buffer)) 1239 if (EQ (buf, Vecho_area_buffer))
1240 return Qnil;
1241
1242 /* Or the special invisible internal prin1 buffer. */
1243 if (EQ (buf, Vprin1_to_string_buffer))
1240 return Qnil; 1244 return Qnil;
1241 1245
1242 /* Query if the buffer is still modified. */ 1246 /* Query if the buffer is still modified. */
1243 if (INTERACTIVE && !NILP (b->filename) 1247 if (INTERACTIVE && !NILP (b->filename)
1244 && BUF_MODIFF (b) > BUF_SAVE_MODIFF (b)) 1248 && BUF_MODIFF (b) > BUF_SAVE_MODIFF (b))