* doc/lispref/modes.texi (Derived Modes): Make example more idiomatic

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;