* net/rlogin.el (rlogin-mode-map): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8e6a3c0f106ee4b4431711a8bfcd1adea94c2120..e6183d92705ea3ac97f1b790fdf99a11330c8d07 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-05-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * net/rlogin.el (rlogin-mode-map): Fix last change.
+
 2012-05-09  Jason L. Wright  <jason.wright@inl.gov>  (tiny change)
 
        * mail/smtpmail.el (smtpmail-send-command): Send the command and

diff --git a/lisp/net/rlogin.el b/lisp/net/rlogin.el
index ac936ee14290c84a759107809c259756ce966859..cef615dc32051ed0dc9069702d558c7ab5a75e07 100644 (file)
--- a/lisp/net/rlogin.el
+++ b/lisp/net/rlogin.el
@@ -114,12 +114,12 @@ this variable is set from that."
   (let ((map (if (consp shell-mode-map)
                  (cons 'keymap shell-mode-map)
                (copy-keymap shell-mode-map))))
-    (define-key rlogin-mode-map "\C-c\C-c" 'rlogin-send-Ctrl-C)
-    (define-key rlogin-mode-map "\C-c\C-d" 'rlogin-send-Ctrl-D)
-    (define-key rlogin-mode-map "\C-c\C-z" 'rlogin-send-Ctrl-Z)
-    (define-key rlogin-mode-map "\C-c\C-\\" 'rlogin-send-Ctrl-backslash)
-    (define-key rlogin-mode-map "\C-d" 'rlogin-delchar-or-send-Ctrl-D)
-    (define-key rlogin-mode-map "\C-i" 'rlogin-tab-or-complete)
+    (define-key map "\C-c\C-c" 'rlogin-send-Ctrl-C)
+    (define-key map "\C-c\C-d" 'rlogin-send-Ctrl-D)
+    (define-key map "\C-c\C-z" 'rlogin-send-Ctrl-Z)
+    (define-key map "\C-c\C-\\" 'rlogin-send-Ctrl-backslash)
+    (define-key map "\C-d" 'rlogin-delchar-or-send-Ctrl-D)
+    (define-key map "\C-i" 'rlogin-tab-or-complete)
     map)
   "Keymap for `rlogin-mode'.")