Mercurial > hg > xemacs-beta
diff src/editfns.c @ 78:c7528f8e288d r20-0b34
Import from CVS: tag r20-0b34
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:05:42 +0200 |
parents | 131b0175ea99 |
children | fe104dbd9147 |
line wrap: on
line diff
--- a/src/editfns.c Mon Aug 13 09:05:11 2007 +0200 +++ b/src/editfns.c Mon Aug 13 09:05:42 2007 +0200 @@ -549,7 +549,7 @@ } DEFUN ("following-char", Ffollowing_char, 0, 1, 0, /* -Return the character following point, as a number. +Return the character following point. At the end of the buffer or accessible region, return 0. If BUFFER is nil, the current buffer is assumed. */ @@ -563,7 +563,7 @@ } DEFUN ("preceding-char", Fpreceding_char, 0, 1, 0, /* -Return the character preceding point, as a number. +Return the character preceding point. At the beginning of the buffer or accessible region, return 0. If BUFFER is nil, the current buffer is assumed. */ @@ -584,9 +584,7 @@ (buffer)) { struct buffer *b = decode_buffer (buffer, 1); - if (BUF_PT (b) == BUF_BEGV (b)) - return Qt; - return Qnil; + return BUF_PT (b) == BUF_BEGV (b) ? Qt : Qnil; } DEFUN ("eobp", Feobp, 0, 1, 0, /* @@ -597,9 +595,7 @@ (buffer)) { struct buffer *b = decode_buffer (buffer, 1); - if (BUF_PT (b) == BUF_ZV (b)) - return Qt; - return Qnil; + return BUF_PT (b) == BUF_ZV (b) ? Qt : Qnil; } int