Mercurial > hg > xemacs-beta

comparison src/fns.c @ 241:f955c73f5258 r20-5b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b19
author cvs
date Mon, 13 Aug 2007 10:16:16 +0200
parents 2c611d1463a6
children c5d627a313b1
comparison
equal deleted inserted replaced
240:835e739f3c17 241:f955c73f5258
267 /*** string functions. ***/ 267 /*** string functions. ***/
268 268
269 DEFUN ("string-equal", Fstring_equal, 2, 2, 0, /* 269 DEFUN ("string-equal", Fstring_equal, 2, 2, 0, /*
270 T if two strings have identical contents. 270 T if two strings have identical contents.
271 Case is significant. Text properties are ignored. 271 Case is significant. Text properties are ignored.
272 (Under XEmacs, `equal' also ignores text properties and extents in 272 \(Under XEmacs, `equal' also ignores text properties and extents in
273 strings, but this is not the case under FSF Emacs.) 273 strings, but this is not the case under FSF Emacs 19. In FSF Emacs 20
274 `equal' is the same as in XEmacs, in that respect.)
274 Symbols are also allowed; their print names are used instead. 275 Symbols are also allowed; their print names are used instead.
275 */ 276 */
276 (s1, s2)) 277 (s1, s2))
277 { 278 {
278 int len; 279 int len;
279 280
280 if (SYMBOLP (s1)) 281 if (SYMBOLP (s1))
281 XSETSTRING (s1, XSYMBOL (s1)->name); 282 XSETSTRING (s1, XSYMBOL (s1)->name);