Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 276:6330739388db r21-0b36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b36
author cvs
date Mon, 13 Aug 2007 10:30:37 +0200
parents c5d627a313b1
children 90d73dddcdc4
comparison
equal deleted inserted replaced
275:a68ae4439f57 276:6330739388db
1135 Any undo records it already has are discarded. 1135 Any undo records it already has are discarded.
1136 No argument or nil as argument means do this for the current buffer. 1136 No argument or nil as argument means do this for the current buffer.
1137 */ 1137 */
1138 (buffer)) 1138 (buffer))
1139 { 1139 {
1140 /* Allowing nil is an Emacs-ism */ 1140 /* Allowing nil is an RMSism */
1141 struct buffer *real_buf = decode_buffer (buffer, 1); 1141 struct buffer *real_buf = decode_buffer (buffer, 1);
1142 real_buf->undo_list = Qt; 1142 real_buf->undo_list = Qt;
1143 return Qnil; 1143 return Qnil;
1144 } 1144 }
1145 1145
1147 Start keeping undo information for buffer BUFFER. 1147 Start keeping undo information for buffer BUFFER.
1148 No argument or nil as argument means do this for the current buffer. 1148 No argument or nil as argument means do this for the current buffer.
1149 */ 1149 */
1150 (buffer)) 1150 (buffer))
1151 { 1151 {
1152 /* Allowing nil is an Emacs-ism */ 1152 /* Allowing nil is an RMSism */
1153 struct buffer *real_buf = decode_buffer (buffer, 1); 1153 struct buffer *real_buf = decode_buffer (buffer, 1);
1154 if (EQ (real_buf->undo_list, Qt)) 1154 if (EQ (real_buf->undo_list, Qt))
1155 real_buf->undo_list = Qnil; 1155 real_buf->undo_list = Qnil;
1156 1156
1157 return Qnil; 1157 return Qnil;