diff options
| author | Glenn Morris | 2013-05-10 19:15:46 -0700 |
|---|---|---|
| committer | Glenn Morris | 2013-05-10 19:15:46 -0700 |
| commit | 8582e4c4b9f64b25e02af620fc0c1ca89149063c (patch) | |
| tree | ad5ee8b532e59602808eca81d08be9a6a9f7d711 /lisp/term.el | |
| parent | f79362a7a0e4ef735d8a33693abbb9cf4972266b (diff) | |
| download | emacs-8582e4c4b9f64b25e02af620fc0c1ca89149063c.tar.gz emacs-8582e4c4b9f64b25e02af620fc0c1ca89149063c.zip | |
* lisp/term.el (term-set-escape-char): Make it idempotent.
Diffstat (limited to 'lisp/term.el')
| -rw-r--r-- | lisp/term.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 953 | (when term-escape-char | 953 | (when term-escape-char |
| 954 | ;; Undo previous term-set-escape-char. | 954 | ;; Undo previous term-set-escape-char. |
| 955 | (define-key term-raw-map term-escape-char 'term-send-raw)) | 955 | (define-key term-raw-map term-escape-char 'term-send-raw)) |
| 956 | (setq term-escape-char (vector key)) | 956 | (setq term-escape-char (if (vectorp key) key (vector key))) |
| 957 | (define-key term-raw-map term-escape-char term-raw-escape-map) | 957 | (define-key term-raw-map term-escape-char term-raw-escape-map) |
| 958 | ;; FIXME: If we later call term-set-escape-char again with another key, | 958 | ;; FIXME: If we later call term-set-escape-char again with another key, |
| 959 | ;; we should undo this binding. | 959 | ;; we should undo this binding. |