[Emacs-diffs] /srv/bzr/emacs/trunk r112543: * lisp/term.el (term-set-escape-char): Make it idempotent.

[Glenn Morris]

------------------------------------------------------------
revno: 112543
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-05-10 19:15:46 -0700
message:
  * lisp/term.el (term-set-escape-char): Make it idempotent.
modified:
  lisp/ChangeLog
  lisp/term.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-10 06:26:42 +0000
+++ b/lisp/ChangeLog    2013-05-11 02:15:46 +0000
@@ -1,3 +1,7 @@
+2013-05-11  Glenn Morris  <address@hidden>
+
+       * term.el (term-set-escape-char): Make it idempotent.
+
 2013-05-10  Leo Liu  <address@hidden>
 
        * progmodes/octave.el (inferior-octave-completion-table): No

=== modified file 'lisp/term.el'
--- a/lisp/term.el      2013-01-04 19:22:37 +0000
+++ b/lisp/term.el      2013-05-11 02:15:46 +0000
@@ -953,7 +953,7 @@
   (when term-escape-char
     ;; Undo previous term-set-escape-char.
     (define-key term-raw-map term-escape-char 'term-send-raw))
-  (setq term-escape-char (vector key))
+  (setq term-escape-char (if (vectorp key) key (vector key)))
   (define-key term-raw-map term-escape-char term-raw-escape-map)
   ;; FIXME: If we later call term-set-escape-char again with another key,
   ;; we should undo this binding.