Re: Adding xterm-extras to Emacs

[Dan Nicolaescu]

address@hidden (Johan Bockgård) writes:

  > 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.

If you tested it, please put it in, both trunk and 22 branch. 

Thanks!

  > 
  > 
  > 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