comparison src/buffer.c @ 1953:714df59790af

(Ferase_buffer): Added interactive spec.
author Roland McGrath <roland@gnu.org>
date Wed, 24 Feb 1993 23:37:46 +0000
parents b0ec61f76511
children 666e3f26a8d6
comparison
equal deleted inserted replaced
1952:b0ec61f76511 1953:714df59790af
1 /* Buffer manipulation primitives for GNU Emacs. 1 /* Buffer manipulation primitives for GNU Emacs.
2 Copyright (C) 1985, 1986, 1987, 1988, 1989, 1992 Free Software Foundation, Inc. 2 Copyright (C) 1985, 1986, 1987, 1988, 1989, 1992, 1993
3 Free Software Foundation, Inc.
3 4
4 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
5 6
6 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by 8 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 1, or (at your option) 9 the Free Software Foundation; either version 2, or (at your option)
9 any later version. 10 any later version.
10 11
11 GNU Emacs is distributed in the hope that it will be useful, 12 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of 13 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
971 } 972 }
972 973
973 return Qnil; 974 return Qnil;
974 } 975 }
975 976
976 DEFUN ("erase-buffer", Ferase_buffer, Serase_buffer, 0, 0, 0, 977 DEFUN ("erase-buffer", Ferase_buffer, Serase_buffer, 0, 0, "*",
977 "Delete the entire contents of the current buffer.\n\ 978 "Delete the entire contents of the current buffer.\n\
978 Any clipping restriction in effect (see `narrow-to-region') is removed,\n\ 979 Any clipping restriction in effect (see `narrow-to-region') is removed,\n\
979 so the buffer is truly empty after this.") 980 so the buffer is truly empty after this.")
980 () 981 ()
981 { 982 {