procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(define-abbrev-table): Apply props even if the table exists already.

Browse source
This commit is contained in:
Stefan Monnier 2008-04-26 01:59:04 +00:00
parent 3420078700
commit 9e2a4d4d37
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/abbrev.el
View file

@ -914,9 +914,14 @@ Properties with special meaning:
(eval `(defvar ,tablename nil ,@(if (stringp docstring) (list docstring))))
(let ((table (if (boundp tablename) (symbol-value tablename))))
(unless table
(setq table (make-abbrev-table props))
(setq table (make-abbrev-table))
(set tablename table)
(push tablename abbrev-table-name-list))
;; We used to just pass them to `make-abbrev-table', but that fails
;; if the table was pre-existing as is the case if it was created by
;; loading the user's abbrev file.
(while (consp props)
(abbrev-table-put table (pop props) (pop props)))
(dolist (elt definitions)
(apply 'define-abbrev table elt))))