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 |