Re: Adding xterm-extras to Emacs

[Johan Bockgård]

Dan Nicolaescu <address@hidden> writes:

> Patches are welcome!

Here's one. It makes no change to the meaning of the code, but it
avoids confusing Show Paren mode and the motion/etc commands.


2007-06-13  Johan Bockgård  <address@hidden>

        * term/xterm.el (terminal-init-xterm): Escape parens in character
        constants.

Index: xterm.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/xterm.el,v
retrieving revision 1.38
diff -u -r1.38 xterm.el
--- xterm.el    8 Apr 2007 14:33:32 -0000       1.38
+++ xterm.el    13 Jun 2007 10:46:32 -0000
@@ -272,8 +272,8 @@
       (define-key map "\e[27;6;36~"  [?\C-$])
       (define-key map "\e[27;6;37~"  [?\C-%])
       (define-key map "\e[27;6;38~"  [?\C-&])
-      (define-key map "\e[27;6;40~"  [?\C-(])
-      (define-key map "\e[27;6;41~"  [?\C-)])
+      (define-key map "\e[27;6;40~"  [?\C-\(])
+      (define-key map "\e[27;6;41~"  [?\C-\)])
       (define-key map "\e[27;6;42~"  [?\C-*])
       (define-key map "\e[27;6;43~"  [?\C-+])
       (define-key map "\e[27;6;58~"  [?\C-:])
@@ -312,8 +312,8 @@
       (define-key map "\e[27;14;36~"  [?\C-\M-$])
       (define-key map "\e[27;14;37~"  [?\C-\M-%])
       (define-key map "\e[27;14;38~"  [?\C-\M-&])
-      (define-key map "\e[27;14;40~"  [?\C-\M-(])
-      (define-key map "\e[27;14;41~"  [?\C-\M-)])
+      (define-key map "\e[27;14;40~"  [?\C-\M-\(])
+      (define-key map "\e[27;14;41~"  [?\C-\M-\)])
       (define-key map "\e[27;14;42~"  [?\C-\M-*])
       (define-key map "\e[27;14;43~"  [?\C-\M-+])
       (define-key map "\e[27;14;58~"  [?\C-\M-:])
@@ -350,8 +350,8 @@
       (define-key map "\e[27;8;36~"  [?\C-\M-$])
       (define-key map "\e[27;8;37~"  [?\C-\M-%])
       (define-key map "\e[27;8;38~"  [?\C-\M-&])
-      (define-key map "\e[27;8;40~"  [?\C-\M-(])
-      (define-key map "\e[27;8;41~"  [?\C-\M-)])
+      (define-key map "\e[27;8;40~"  [?\C-\M-\(])
+      (define-key map "\e[27;8;41~"  [?\C-\M-\)])
       (define-key map "\e[27;8;42~"  [?\C-\M-*])
       (define-key map "\e[27;8;43~"  [?\C-\M-+])
       (define-key map "\e[27;8;58~"  [?\C-\M-:])


-- 
Johan Bockgård