Mercurial > emacs
comparison lisp/loadup.el @ 85710:beb909dfc54d
Rewrite abbrev.c in Elisp.
* image.c (Qcount): Don't declare as extern.
(syms_of_image): Initialize and staticpro `Qcount'.
* puresize.h (BASE_PURESIZE): Increase for the new abbrev.el functions.
* emacs.c (main): Don't call syms_of_abbrev.
* Makefile.in (obj): Remove abbrev.o.
(abbrev.o): Remove.
* abbrev.c: Remove.
Rewrite abbrev.c in Elisp.
* abbrev.el (abbrev-mode): Move custom group from cus-edit.el.
(abbrev-table-get, abbrev-table-put, abbrev-get)
(abbrev-put, make-abbrev-table, abbrev-table-p, clear-abbrev-table)
(define-abbrev, abbrev--check-chars, define-global-abbrev)
(define-mode-abbrev, abbrev--active-tables, abbrev-symbol)
(abbrev-expansion, abbrev--before-point, expand-abbrev)
(unexpand-abbrev, abbrev--write, abbrev--describe)
(insert-abbrev-table-description, define-abbrev-table):
New funs, largely transcribed from abbrev.c.
(abbrev-with-wrapper-hook): New macro.
(abbrev-table-name-list, global-abbrev-table)
(abbrev-minor-mode-table-alist, fundamental-mode-abbrev-table)
(abbrevs-changed, abbrev-all-caps, abbrev-start-location)
(abbrev-start-location-buffer, last-abbrev, last-abbrev-text)
(last-abbrev-location, pre-abbrev-expand-hook, abbrev-expand-function):
New vars, largely transcribed from abbrev.c.
* cus-edit.el (abbrev-mode): Remove. Move to abbrev.el.
* cus-start.el: Remove abbrev-all-caps and pre-abbrev-expand-hook.
* loadup.el: Load "abbrev.el" before "lisp-mode.el".
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sun, 28 Oct 2007 02:41:00 +0000 |
parents | 0dcd1f3c9909 |
children | 107ccd98fa12 880960b70474 |
comparison
equal
deleted
inserted
replaced
85709:2dabdbde81e8 | 85710:beb909dfc54d |
---|---|
158 (load "paths.el") ;Don't get confused if someone compiled paths by mistake. | 158 (load "paths.el") ;Don't get confused if someone compiled paths by mistake. |
159 (load "emacs-lisp/lisp") | 159 (load "emacs-lisp/lisp") |
160 (load "textmodes/page") | 160 (load "textmodes/page") |
161 (load "register") | 161 (load "register") |
162 (load "textmodes/paragraphs") | 162 (load "textmodes/paragraphs") |
163 (load "abbrev") ;lisp-mode.el uses define-abbrev-table. | |
163 (load "emacs-lisp/lisp-mode") | 164 (load "emacs-lisp/lisp-mode") |
164 (load "textmodes/text-mode") | 165 (load "textmodes/text-mode") |
165 (load "textmodes/fill") | 166 (load "textmodes/fill") |
166 (message "%s" (garbage-collect)) | 167 (message "%s" (garbage-collect)) |
167 | 168 |
168 (load "replace") | 169 (load "replace") |
169 (if (eq system-type 'vax-vms) | 170 (if (eq system-type 'vax-vms) |
170 (progn | 171 (progn |
171 (load "vmsproc"))) | 172 (load "vmsproc"))) |
172 (load "abbrev") | |
173 (load "buff-menu") | 173 (load "buff-menu") |
174 | 174 |
175 (if (fboundp 'x-create-frame) | 175 (if (fboundp 'x-create-frame) |
176 (progn | 176 (progn |
177 (load "fringe") | 177 (load "fringe") |