diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-15 14:33:33 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-06-15 14:33:33 -0400 |
commit | 2b75be6704c3adf2f6ec9428dbcca90bf28043ef (patch) | |
tree | 960918b5189b8ac2326dba6ef2bdac0d60baceeb /lisp/abbrev.el | |
parent | 8c0e35891e0533125e1a09bce2f3bcd29c6ff23a (diff) | |
download | emacs-2b75be6704c3adf2f6ec9428dbcca90bf28043ef.tar.gz |
* lisp/abbrev.el (define-abbrev-table): Don't add a table multiple times.
Diffstat (limited to 'lisp/abbrev.el')
-rw-r--r-- | lisp/abbrev.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index b2cd2064da2..9445cf9675c 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -935,7 +935,8 @@ Properties with special meaning: (unless table (setq table (make-abbrev-table)) (set tablename table) - (push tablename abbrev-table-name-list)) + (unless (memq tablename abbrev-table-name-list) + (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. |