Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents 3d6bfa290dbd
children e45d5e7c476e
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
399 /* Like Fassoc, but use Fstring_equal to compare 399 /* Like Fassoc, but use Fstring_equal to compare
400 (which ignores text properties), 400 (which ignores text properties),
401 and don't ever QUIT. */ 401 and don't ever QUIT. */
402 402
403 static Lisp_Object 403 static Lisp_Object
404 assoc_ignore_text_properties (register Lisp_Object key, Lisp_Object list) 404 assoc_ignore_text_properties (REGISTER Lisp_Object key, Lisp_Object list)
405 { 405 {
406 register Lisp_Object tail; 406 REGISTER Lisp_Object tail;
407 for (tail = list; !NILP (tail); tail = Fcdr (tail)) 407 for (tail = list; !NILP (tail); tail = Fcdr (tail))
408 { 408 {
409 register Lisp_Object elt, tem; 409 REGISTER Lisp_Object elt, tem;
410 elt = Fcar (tail); 410 elt = Fcar (tail);
411 tem = Fstring_equal (Fcar (elt), key); 411 tem = Fstring_equal (Fcar (elt), key);
412 if (!NILP (tem)) 412 if (!NILP (tem))
413 return elt; 413 return elt;
414 } 414 }
2003 Vbefore_change_functions = Qnil; 2003 Vbefore_change_functions = Qnil;
2004 2004
2005 /* FSF Emacs has the following additional doc at the end of 2005 /* FSF Emacs has the following additional doc at the end of
2006 before-change-functions and after-change-functions: 2006 before-change-functions and after-change-functions:
2007 2007
2008 That's because these variables are temporarily set to nil.\n\ 2008 That's because these variables are temporarily set to nil.
2009 As a result, a hook function cannot straightforwardly alter the value of\n\ 2009 As a result, a hook function cannot straightforwardly alter the value of
2010 these variables. See the Emacs Lisp manual for a way of\n\ 2010 these variables. See the Emacs Lisp manual for a way of
2011 accomplishing an equivalent result by using other variables. 2011 accomplishing an equivalent result by using other variables.
2012 2012
2013 But this doesn't apply under XEmacs because things are 2013 But this doesn't apply under XEmacs because things are
2014 handled better. */ 2014 handled better. */
2015 2015