diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-02-13 02:29:01 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-02-13 02:29:01 -0500 |
commit | 5c3105e55bd28f2d4786b798a11566f6876c237a (patch) | |
tree | 0716dac42ba9cee5a6430900b1c3dd6369dc4162 | |
parent | 4c51ef4e803f9e956b2a1c1dc78ed50087c9507e (diff) | |
download | emacs-5c3105e55bd28f2d4786b798a11566f6876c237a.tar.gz |
* doc/lispref/modes.texi (Derived Modes): Make example more idiomatic
-rw-r--r-- | doc/lispref/modes.texi | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/doc/lispref/modes.texi b/doc/lispref/modes.texi index 0015a9f318d..132dda3fc60 100644 --- a/doc/lispref/modes.texi +++ b/doc/lispref/modes.texi @@ -806,14 +806,15 @@ this mode. (Not all major modes have one.) The command Here is a hypothetical example: @example +(defvar hypertext-mode-map + (let ((map (make-sparse-keymap))) + (define-key map [down-mouse-3] 'do-hyper-link) + map)) + (define-derived-mode hypertext-mode text-mode "Hypertext" - "Major mode for hypertext. -\\@{hypertext-mode-map@}" - (setq case-fold-search nil)) - -(define-key hypertext-mode-map - [down-mouse-3] 'do-hyper-link) + "Major mode for hypertext." + (setq-local case-fold-search nil)) @end example Do not write an @code{interactive} spec in the definition; |