Mercurial > emacs

comparison src/lisp.h @ 19547:70d930b49bb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(DEFUN_ARGS_8): New macro. (Fcompleting_read, Fread_from_minibuffer, Fread_string, Fread_no_blanks_input): Number of arguments fixed.
author Kenichi Handa <handa@m17n.org>
date Tue, 26 Aug 1997 11:42:33 +0000
parents db9418ba5d32
children b4533deef3b8
comparison
equal deleted inserted replaced
19546:38c46419910a 19547:70d930b49bb4
1220 Lisp_Object) 1220 Lisp_Object)
1221 #define DEFUN_ARGS_6 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, \ 1221 #define DEFUN_ARGS_6 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, \
1222 Lisp_Object, Lisp_Object) 1222 Lisp_Object, Lisp_Object)
1223 #define DEFUN_ARGS_7 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, \ 1223 #define DEFUN_ARGS_7 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, \
1224 Lisp_Object, Lisp_Object, Lisp_Object) 1224 Lisp_Object, Lisp_Object, Lisp_Object)
1225 #define DEFUN_ARGS_8 (Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object, \
1226 Lisp_Object, Lisp_Object, Lisp_Object, Lisp_Object)
1225 #endif 1227 #endif
1226 1228
1227 /* defsubr (Sname); 1229 /* defsubr (Sname);
1228 is how we define the symbol for function `name' at start-up time. */ 1230 is how we define the symbol for function `name' at start-up time. */
1229 extern void defsubr (); 1231 extern void defsubr ();
1919 EXFUN (Fmatch_end, 1); 1921 EXFUN (Fmatch_end, 1);
1920 1922
1921 /* defined in minibuf.c */ 1923 /* defined in minibuf.c */
1922 1924
1923 extern Lisp_Object last_minibuf_string; 1925 extern Lisp_Object last_minibuf_string;
1924 EXFUN (Fcompleting_read, 7); 1926 EXFUN (Fcompleting_read, 8);
1925 EXFUN (Fread_from_minibuffer, 6); 1927 EXFUN (Fread_from_minibuffer, 7);
1926 EXFUN (Fread_variable, 2); 1928 EXFUN (Fread_variable, 2);
1927 EXFUN (Fread_buffer, 3); 1929 EXFUN (Fread_buffer, 3);
1928 EXFUN (Fread_minibuffer, 2); 1930 EXFUN (Fread_minibuffer, 2);
1929 EXFUN (Feval_minibuffer, 2); 1931 EXFUN (Feval_minibuffer, 2);
1930 EXFUN (Fread_string, 4); 1932 EXFUN (Fread_string, 5);
1931 EXFUN (Fread_no_blanks_input, 2); 1933 EXFUN (Fread_no_blanks_input, 3);
1932 extern Lisp_Object get_minibuffer P_ ((int)); 1934 extern Lisp_Object get_minibuffer P_ ((int));
1933 1935
1934 /* Defined in callint.c */ 1936 /* Defined in callint.c */
1935 1937
1936 extern Lisp_Object Qminus, Qplus, Vcurrent_prefix_arg; 1938 extern Lisp_Object Qminus, Qplus, Vcurrent_prefix_arg;