Mercurial > hg > xemacs-beta

comparison src/abbrev.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
75 75
76 76
77 /* Expand the word before point, if it is an abbrev. 77 /* Expand the word before point, if it is an abbrev.
78 Returns Qt if an expansion is done. */ 78 Returns Qt if an expansion is done. */
79 79
80 DEFUN ("expand-abbrev", Fexpand_abbrev, Sexpand_abbrev, 0, 0, "" /* 80 DEFUN ("expand-abbrev", Fexpand_abbrev, 0, 0, "", /*
81 Expand the abbrev before point, if there is an abbrev there. 81 Expand the abbrev before point, if there is an abbrev there.
82 Effective when explicitly called even when `abbrev-mode' is nil. 82 Effective when explicitly called even when `abbrev-mode' is nil.
83 Returns t if expansion took place. 83 Returns t if expansion took place.
84 */ ) 84 */
85 () 85 ())
86 { 86 {
87 /* This function can GC */ 87 /* This function can GC */
88 REGISTER Bufbyte *buffer, *p; 88 REGISTER Bufbyte *buffer, *p;
89 REGISTER Bufpos wordstart, wordend, idx; 89 REGISTER Bufpos wordstart, wordend, idx;
90 Charcount whitecnt; 90 Charcount whitecnt;
223 223
224 void 224 void
225 syms_of_abbrev (void) 225 syms_of_abbrev (void)
226 { 226 {
227 defsymbol (&Qpre_abbrev_expand_hook, "pre-abbrev-expand-hook"); 227 defsymbol (&Qpre_abbrev_expand_hook, "pre-abbrev-expand-hook");
228 defsubr (&Sexpand_abbrev); 228 DEFSUBR (Fexpand_abbrev);
229 } 229 }
230 230
231 void 231 void
232 vars_of_abbrev (void) 232 vars_of_abbrev (void)
233 { 233 {