From ecda6582536032e0c8af2a01235f77a2bcda5e07 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 13 Jun 2007 18:48:09 +0000 Subject: [PATCH] * term/xterm.el (terminal-init-xterm): Escape parens in character constants. --- lisp/ChangeLog | 5 +++++ lisp/term/xterm.el | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 69b07753cea..34197ec6c45 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-13 Johan Bockg,Ae(Brd (tiny change) + + * term/xterm.el (terminal-init-xterm): Escape parens in character + constants. + 2007-06-13 Stefan Monnier * progmodes/sh-script.el: Remove unneeded * from docstrings. diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 297ee7df5cd..a7249536f7b 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -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-:]) -- 2.39.2