From 8582e4c4b9f64b25e02af620fc0c1ca89149063c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 10 May 2013 19:15:46 -0700 Subject: [PATCH] * lisp/term.el (term-set-escape-char): Make it idempotent. --- lisp/ChangeLog | 4 ++++ lisp/term.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6bd304bf815..ec747affc95 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-05-11 Glenn Morris + + * term.el (term-set-escape-char): Make it idempotent. + 2013-05-10 Leo Liu * progmodes/octave.el (inferior-octave-completion-table): No diff --git a/lisp/term.el b/lisp/term.el index b37e71280da..1c67057d3a7 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -953,7 +953,7 @@ is buffer-local." (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. -- 2.39.2