Mercurial > emacs
comparison lisp/emacs-lisp/derived.el @ 105075:9005ea5eb958
(define-derived-mode): Fix paren typo in definition of abbrev table.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 18 Sep 2009 07:14:43 +0000 |
| parents | 67946512b0fd |
| children | db5e4a5897ec |
comparison
equal
deleted
inserted
replaced
| 105074:45b5d5aae703 | 105075:9005ea5eb958 |
|---|---|
| 215 ,(format "Syntax table for `%s'." child))))) | 215 ,(format "Syntax table for `%s'." child))))) |
| 216 ,(if declare-abbrev | 216 ,(if declare-abbrev |
| 217 `(progn | 217 `(progn |
| 218 (put ',abbrev 'definition-name ',child) | 218 (put ',abbrev 'definition-name ',child) |
| 219 (defvar ,abbrev | 219 (defvar ,abbrev |
| 220 (progn (define-abbrev-table ',abbrev nil) ,abbrev) | 220 (progn (define-abbrev-table ',abbrev nil) ,abbrev)) |
| 221 (unless (get ',abbrev 'variable-documentation) | 221 (unless (get ',abbrev 'variable-documentation) |
| 222 (put ',abbrev 'variable-documentation | 222 (put ',abbrev 'variable-documentation |
| 223 ,(format "Abbrev table for `%s'." child)))))) | 223 ,(format "Abbrev table for `%s'." child))))) |
| 224 (put ',child 'derived-mode-parent ',parent) | 224 (put ',child 'derived-mode-parent ',parent) |
| 225 ,(if group `(put ',child 'custom-mode-group ,group)) | 225 ,(if group `(put ',child 'custom-mode-group ,group)) |
| 226 | 226 |
| 227 (defun ,child () | 227 (defun ,child () |
| 228 ,docstring | 228 ,docstring |