Mercurial > emacs

changeset 283:78fbe3043a5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Thu, 23 May 1991 22:26:10 +0000
parents 341f07a24b10
children 03e467a3d92a
files lisp/textmodes/text-mode.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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}