Mercurial > emacs

comparison src/lisp.h @ 105373:7a4bd0ca624b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* lisp.h (Qdelete_directory_internal): Remove, because it is not used anymore outside fileio.c.
author Michael Albinus <michael.albinus@gmx.de>
date Fri, 02 Oct 2009 05:57:49 +0000
parents 9cce4a353df7
children 68dd71358159
comparison
equal deleted inserted replaced
105372:bd2966850aac 105373:7a4bd0ca624b
783 : XSUB_CHAR_TABLE (_tbl->ascii)->contents[IDX]); \ 783 : XSUB_CHAR_TABLE (_tbl->ascii)->contents[IDX]); \
784 if (NILP (_val)) \ 784 if (NILP (_val)) \
785 _val = _tbl->defalt; \ 785 _val = _tbl->defalt; \
786 } while (NILP (_val) && ! NILP (_tbl->parent)); \ 786 } while (NILP (_val) && ! NILP (_tbl->parent)); \
787 _val; }) 787 _val; })
788 788
789 #else /* not __GNUC__ */ 789 #else /* not __GNUC__ */
790 790
791 #define CHAR_TABLE_REF_ASCII(CT, IDX) \ 791 #define CHAR_TABLE_REF_ASCII(CT, IDX) \
792 (! NILP (XCHAR_TABLE (CT)->ascii) \ 792 (! NILP (XCHAR_TABLE (CT)->ascii) \
793 ? (! SUB_CHAR_TABLE_P (XCHAR_TABLE (CT)->ascii) \ 793 ? (! SUB_CHAR_TABLE_P (XCHAR_TABLE (CT)->ascii) \
2950 extern int internal_delete_file P_ ((Lisp_Object)); 2950 extern int internal_delete_file P_ ((Lisp_Object));
2951 extern void syms_of_fileio P_ ((void)); 2951 extern void syms_of_fileio P_ ((void));
2952 extern void init_fileio_once P_ ((void)); 2952 extern void init_fileio_once P_ ((void));
2953 extern Lisp_Object make_temp_name P_ ((Lisp_Object, int)); 2953 extern Lisp_Object make_temp_name P_ ((Lisp_Object, int));
2954 EXFUN (Fmake_symbolic_link, 3); 2954 EXFUN (Fmake_symbolic_link, 3);
2955 extern Lisp_Object Qdelete_directory_internal;
2956 extern Lisp_Object Qdelete_file; 2955 extern Lisp_Object Qdelete_file;
2957 2956
2958 /* Defined in abbrev.c */ 2957 /* Defined in abbrev.c */
2959 2958
2960 extern void syms_of_abbrev P_ ((void)); 2959 extern void syms_of_abbrev P_ ((void));