Mercurial > hg > xemacs-beta

comparison src/abbrev.c @ 5445:6506fcb40fcf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged with trunk.
author Mats Lidell <matsl@xemacs.org>
date Fri, 31 Dec 2010 00:27:29 +0100
parents 8d29f1c4bb98 31be2a3d121d
children 0af042a0c116
comparison
equal deleted inserted replaced
5444:388762703a21 5445:6506fcb40fcf
71 Fixnum last_abbrev_location; 71 Fixnum last_abbrev_location;
72 72
73 /* Hook to run before expanding any abbrev. */ 73 /* Hook to run before expanding any abbrev. */
74 Lisp_Object Vpre_abbrev_expand_hook, Qpre_abbrev_expand_hook; 74 Lisp_Object Vpre_abbrev_expand_hook, Qpre_abbrev_expand_hook;
75 75
76 Lisp_Object Qsystem_type, Qcount; 76 Lisp_Object Qsystem_type;
77 77
78 struct abbrev_match_mapper_closure 78 struct abbrev_match_mapper_closure
79 { 79 {
80 struct buffer *buf; 80 struct buffer *buf;
81 Lisp_Object chartab; 81 Lisp_Object chartab;
554 } 554 }
555 555
556 void 556 void
557 syms_of_abbrev (void) 557 syms_of_abbrev (void)
558 { 558 {
559 DEFSYMBOL(Qcount);
560 Qcount = intern ("count");
561 staticpro (&Qcount);
562 DEFSYMBOL(Qsystem_type); 559 DEFSYMBOL(Qsystem_type);
563 Qsystem_type = intern ("system-type"); 560 Qsystem_type = intern ("system-type");
564 DEFSYMBOL (Qpre_abbrev_expand_hook); 561 DEFSYMBOL (Qpre_abbrev_expand_hook);
565 DEFSUBR (Fexpand_abbrev); 562 DEFSUBR (Fexpand_abbrev);
566 DEFSUBR (Finsert_abbrev_table_description); 563 DEFSUBR (Finsert_abbrev_table_description);