Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 85ec50267440
children e121b013d1f0
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
960 as BUFFER means use current buffer. 960 as BUFFER means use current buffer.
961 */ 961 */
962 (flag, buffer)) 962 (flag, buffer))
963 { 963 {
964 /* This function can GC */ 964 /* This function can GC */
965 Lisp_Object fn;
966 struct buffer *buf = decode_buffer (buffer, 0); 965 struct buffer *buf = decode_buffer (buffer, 0);
967 966
968 #ifdef ENERGIZE 967 #ifdef ENERGIZE
969 Lisp_Object starting_flag = 968 Lisp_Object starting_flag =
970 (BUF_SAVE_MODIFF (buf) < BUF_MODIFF (buf)) ? Qt : Qnil; 969 (BUF_SAVE_MODIFF (buf) < BUF_MODIFF (buf)) ? Qt : Qnil;
973 972
974 #ifdef CLASH_DETECTION 973 #ifdef CLASH_DETECTION
975 /* If buffer becoming modified, lock the file. 974 /* If buffer becoming modified, lock the file.
976 If buffer becoming unmodified, unlock the file. */ 975 If buffer becoming unmodified, unlock the file. */
977 976
978 fn = buf->file_truename; 977 Lisp_Object fn = buf->file_truename;
979 if (!NILP (fn)) 978 if (!NILP (fn))
980 { 979 {
981 int already = BUF_SAVE_MODIFF (buf) < BUF_MODIFF (buf); 980 int already = BUF_SAVE_MODIFF (buf) < BUF_MODIFF (buf);
982 if (already == NILP (flag)) 981 if (already == NILP (flag))
983 { 982 {