# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 675037570 0
# Node ID 78fbe3043a5da6ae097829c98f69f20a7c50958f
# Parent  341f07a24b10e79a82772aab57571889cada4e41
*** empty log message ***

diff -r 341f07a24b10 -r 78fbe3043a5d lisp/textmodes/text-mode.el
--- a/lisp/textmodes/text-mode.el	Thu May 23 00:42:33 1991 +0000
+++ b/lisp/textmodes/text-mode.el	Thu May 23 22:26:10 1991 +0000
@@ -70,8 +70,11 @@
 
 (if indented-text-mode-map
     ()
-  (setq indented-text-mode-map (nconc (make-sparse-keymap) text-mode-map))
-  (define-key indented-text-mode-map "\t" 'indent-relative))
+  ;; Make different definintion for TAB before the one in text-mode-map, but
+  ;; share the rest.
+  (let ((newmap (make-sparse-keymap)))
+    (define-key newmap "\t" 'indent-relative)
+    (setq indented-text-mode-map (nconc newmap text-mode-map))))
 
 (defun indented-text-mode ()
   "Major mode for editing indented text intended for humans to read.\\{indented-text-mode-map}