Mercurial > hg > xemacs-beta

comparison src/editfns.c @ 4962:e813cf16c015

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Mon, 01 Feb 2010 05:29:05 -0600
parents 304aebb79cd3 9e7f5a77cc84
children 16112448d484 4aebb0131297
comparison
equal deleted inserted replaced
4961:b90f8cf474e0 4962:e813cf16c015
2129 2129
2130 DEFUN ("save-restriction", Fsave_restriction, 0, UNEVALLED, 0, /* 2130 DEFUN ("save-restriction", Fsave_restriction, 0, UNEVALLED, 0, /*
2131 Execute BODY, saving and restoring current buffer's restrictions. 2131 Execute BODY, saving and restoring current buffer's restrictions.
2132 The buffer's restrictions make parts of the beginning and end invisible. 2132 The buffer's restrictions make parts of the beginning and end invisible.
2133 \(They are set up with `narrow-to-region' and eliminated with `widen'.) 2133 \(They are set up with `narrow-to-region' and eliminated with `widen'.)
2134 This special form, `save-restriction', saves the current buffer's restrictions 2134 This special operator, `save-restriction', saves the current buffer's
2135 when it is entered, and restores them when it is exited. 2135 restrictions when it is entered, and restores them when it is exited.
2136 So any `narrow-to-region' within BODY lasts only until the end of the form. 2136 So any `narrow-to-region' within BODY lasts only until the end of the form.
2137 The old restrictions settings are restored 2137 The old restrictions settings are restored
2138 even in case of abnormal exit (throw or error). 2138 even in case of abnormal exit (throw or error).
2139 2139
2140 The value returned is the value of the last form in BODY. 2140 The value returned is the value of the last form in BODY.
2256 CHECK_CHAR_COERCE_INT (character2); 2256 CHECK_CHAR_COERCE_INT (character2);
2257 x1 = XCHAR (character1); 2257 x1 = XCHAR (character1);
2258 x2 = XCHAR (character2); 2258 x2 = XCHAR (character2);
2259 2259
2260 return (!NILP (b->case_fold_search) 2260 return (!NILP (b->case_fold_search)
2261 ? DOWNCASE (b, x1) == DOWNCASE (b, x2) 2261 ? CANONCASE (b, x1) == CANONCASE (b, x2)
2262 : x1 == x2) 2262 : x1 == x2)
2263 ? Qt : Qnil; 2263 ? Qt : Qnil;
2264 } 2264 }
2265 2265
2266 DEFUN ("char=", Fchar_Equal, 2, 2, 0, /* 2266 DEFUN ("char=", Fchar_Equal, 2, 2, 0, /*