Mercurial > hg > xemacs-beta

comparison src/cmds.c @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 8efd647ea9ca
children 6330739388db
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
418 418
419 /* If previous command specified a face to use, use it. */ 419 /* If previous command specified a face to use, use it. */
420 if (!NILP (Vself_insert_face) 420 if (!NILP (Vself_insert_face)
421 && EQ (Vlast_command, Vself_insert_face_command)) 421 && EQ (Vlast_command, Vself_insert_face_command))
422 { 422 {
423 Lisp_Object before, after; 423 Lisp_Object before = make_int (BUF_PT (buf) - 1);
424 XSETINT (before, BUF_PT (buf) - 1); 424 Lisp_Object after = make_int (BUF_PT (buf));
425 XSETINT (after, BUF_PT (buf));
426 Fput_text_property (before, after, Qface, Vself_insert_face, Qnil); 425 Fput_text_property (before, after, Qface, Vself_insert_face, Qnil);
427 Fput_text_property (before, after, Qstart_open, Qt, Qnil); 426 Fput_text_property (before, after, Qstart_open, Qt, Qnil);
428 Fput_text_property (before, after, Qend_open, Qnil, Qnil); 427 Fput_text_property (before, after, Qend_open, Qnil, Qnil);
429 /* #### FSFmacs properties are normally closed ("sticky") on the 428 /* #### FSFmacs properties are normally closed ("sticky") on the
430 end but not the beginning. It's the opposite for us. */ 429 end but not the beginning. It's the opposite for us. */