diff options
| author | Richard M. Stallman | 2002-09-12 03:22:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-09-12 03:22:40 +0000 |
| commit | 45ee08fddcf6592503055cdf2351ae31f8752d8b (patch) | |
| tree | 9c555f080960e95010ea2e6b2c0c529d8dbbfec2 | |
| parent | 509b4dbc0bf2921822e29c7650ecdf81630b327f (diff) | |
| download | emacs-45ee08fddcf6592503055cdf2351ae31f8752d8b.tar.gz emacs-45ee08fddcf6592503055cdf2351ae31f8752d8b.zip | |
(define-derived-mode): When making new abbrev table,
don't try to copy the parent's abbrev table.
| -rw-r--r-- | lisp/derived.el | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lisp/derived.el b/lisp/derived.el index f3e8e06b8e4..87b37387285 100644 --- a/lisp/derived.el +++ b/lisp/derived.el | |||
| @@ -215,17 +215,7 @@ been generated automatically, with a reference to the keymap." | |||
| 215 | `(let ((parent (char-table-parent ,syntax))) | 215 | `(let ((parent (char-table-parent ,syntax))) |
| 216 | (unless (and parent | 216 | (unless (and parent |
| 217 | (not (eq parent (standard-syntax-table)))) | 217 | (not (eq parent (standard-syntax-table)))) |
| 218 | (set-char-table-parent ,syntax (syntax-table))))) | 218 | (set-char-table-parent ,syntax (syntax-table))))))) |
| 219 | ,(when declare-abbrev | ||
| 220 | `(when local-abbrev-table | ||
| 221 | (mapatoms | ||
| 222 | (lambda (symbol) | ||
| 223 | (or (intern-soft (symbol-name symbol) ,abbrev) | ||
| 224 | (define-abbrev ,abbrev | ||
| 225 | (symbol-name symbol) | ||
| 226 | (symbol-value symbol) | ||
| 227 | (symbol-function symbol)))) | ||
| 228 | local-abbrev-table))))) | ||
| 229 | 219 | ||
| 230 | (use-local-map ,map) | 220 | (use-local-map ,map) |
| 231 | ,(when syntax `(set-syntax-table ,syntax)) | 221 | ,(when syntax `(set-syntax-table ,syntax)) |