diff options
| -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)) |