diff options
| author | Dmitry Antipov | 2013-01-09 17:50:22 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2013-01-09 17:50:22 +0400 |
| commit | eefd727851555237c7bc205b7ad255c50ba3fff9 (patch) | |
| tree | 5009d8d2c8773c64504252c8e8738f14b84d2547 /src/editfns.c | |
| parent | ccd04887a3f15ce0e52af801d8a70c91d695f78c (diff) | |
| download | emacs-eefd727851555237c7bc205b7ad255c50ba3fff9.tar.gz emacs-eefd727851555237c7bc205b7ad255c50ba3fff9.zip | |
* lisp.h (make_gap_1): New prototype.
* buffer.h (GAP_BYTES_DFL, GAP_BYTES_MIN): New macros for the special
gap size values.
* editfns.c (Fbuffer_size): Rename from Fbufsize to fit the common
naming convention.
(syms_of_editfns): Adjust defsubr. Drop commented-out obsolete code.
* insdel.c (make_gap_larger): Use GAP_BYTES_DFL.
(make_gap_smaller): Use GAP_BYTES_MIN. Adjust comment.
(make_gap_1): New function to adjust the gap of any buffer.
* coding.c (coding_alloc_by_making_gap): Use it.
* buffer.c (compact_buffer): Likewise. Use BUF_Z_BYTE, BUF_GAP_SIZE,
GAP_BYTES_DFL and GAP_BYTES_MIN. Adjust comment.
Diffstat (limited to 'src/editfns.c')
| -rw-r--r-- | src/editfns.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/editfns.c b/src/editfns.c index df0dad0669d..26dfdac3ba8 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -968,7 +968,7 @@ usage: (save-current-buffer &rest BODY) */) | |||
| 968 | return unbind_to (count, Fprogn (args)); | 968 | return unbind_to (count, Fprogn (args)); |
| 969 | } | 969 | } |
| 970 | 970 | ||
| 971 | DEFUN ("buffer-size", Fbufsize, Sbufsize, 0, 1, 0, | 971 | DEFUN ("buffer-size", Fbuffer_size, Sbuffer_size, 0, 1, 0, |
| 972 | doc: /* Return the number of characters in the current buffer. | 972 | doc: /* Return the number of characters in the current buffer. |
| 973 | If BUFFER, return the number of characters in that buffer instead. */) | 973 | If BUFFER, return the number of characters in that buffer instead. */) |
| 974 | (Lisp_Object buffer) | 974 | (Lisp_Object buffer) |
| @@ -4883,12 +4883,10 @@ functions if all the text being accessed has this property. */); | |||
| 4883 | defsubr (&Sline_beginning_position); | 4883 | defsubr (&Sline_beginning_position); |
| 4884 | defsubr (&Sline_end_position); | 4884 | defsubr (&Sline_end_position); |
| 4885 | 4885 | ||
| 4886 | /* defsubr (&Smark); */ | ||
| 4887 | /* defsubr (&Sset_mark); */ | ||
| 4888 | defsubr (&Ssave_excursion); | 4886 | defsubr (&Ssave_excursion); |
| 4889 | defsubr (&Ssave_current_buffer); | 4887 | defsubr (&Ssave_current_buffer); |
| 4890 | 4888 | ||
| 4891 | defsubr (&Sbufsize); | 4889 | defsubr (&Sbuffer_size); |
| 4892 | defsubr (&Spoint_max); | 4890 | defsubr (&Spoint_max); |
| 4893 | defsubr (&Spoint_min); | 4891 | defsubr (&Spoint_min); |
| 4894 | defsubr (&Spoint_min_marker); | 4892 | defsubr (&Spoint_min_marker); |