diff options
| author | Richard M. Stallman | 1997-08-19 01:22:06 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-19 01:22:06 +0000 |
| commit | ce8f7cc1a24d0ad13453a88ef97a6bfd49ab34ab (patch) | |
| tree | 61aa5731b4282df1867617a03157d3caedcbec56 | |
| parent | ddb3136ef766af1991e170118076cf2400008ca9 (diff) | |
| download | emacs-ce8f7cc1a24d0ad13453a88ef97a6bfd49ab34ab.tar.gz emacs-ce8f7cc1a24d0ad13453a88ef97a6bfd49ab34ab.zip | |
(encoded-kbd-iso2022-designations):
(encoded-kbd-iso2022-invocations): Don't make these vars buffer-local.
(encoded-kbd-mode): Don't make encoded-kbd-iso2022-designations
or encoded-kbd-iso2022-invocations buffer-local.
| -rw-r--r-- | lisp/international/encoded-kb.el | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el index 8cc449595c5..d12f2600b16 100644 --- a/lisp/international/encoded-kb.el +++ b/lisp/international/encoded-kb.el | |||
| @@ -103,7 +103,6 @@ | |||
| 103 | ;; registers (0..3). | 103 | ;; registers (0..3). |
| 104 | 104 | ||
| 105 | (defvar encoded-kbd-iso2022-designations nil) | 105 | (defvar encoded-kbd-iso2022-designations nil) |
| 106 | (make-variable-buffer-local 'encoded-kbd-iso2022-designations) | ||
| 107 | (put 'encoded-kbd-iso2022-designations 'permanent-local t) | 106 | (put 'encoded-kbd-iso2022-designations 'permanent-local t) |
| 108 | 107 | ||
| 109 | ;; Keep information of invocation state of ISO2022 encoding. This is | 108 | ;; Keep information of invocation state of ISO2022 encoding. This is |
| @@ -112,7 +111,6 @@ | |||
| 112 | ;; register number. | 111 | ;; register number. |
| 113 | 112 | ||
| 114 | (defvar encoded-kbd-iso2022-invocations nil) | 113 | (defvar encoded-kbd-iso2022-invocations nil) |
| 115 | (make-variable-buffer-local 'encoded-kbd-iso2022-invocations) | ||
| 116 | (put 'encoded-kbd-iso2022-invocations 'permanent-local t) | 114 | (put 'encoded-kbd-iso2022-invocations 'permanent-local t) |
| 117 | 115 | ||
| 118 | (defun encoded-kbd-iso2022-designation () | 116 | (defun encoded-kbd-iso2022-designation () |
| @@ -262,7 +260,6 @@ set by the command `set-keyboard-coding-system'." | |||
| 262 | (nth 0 saved-input-mode) (nth 1 saved-input-mode) | 260 | (nth 0 saved-input-mode) (nth 1 saved-input-mode) |
| 263 | 'use-8th-bit (nth 3 saved-input-mode)) | 261 | 'use-8th-bit (nth 3 saved-input-mode)) |
| 264 | (setq encoded-kbd-coding 'iso2022-8)) | 262 | (setq encoded-kbd-coding 'iso2022-8)) |
| 265 | (make-variable-buffer-local 'encoded-kbd-iso2022-designations) | ||
| 266 | (setq encoded-kbd-iso2022-designations (make-vector 4 nil)) | 263 | (setq encoded-kbd-iso2022-designations (make-vector 4 nil)) |
| 267 | (let ((flags (coding-system-flags coding)) | 264 | (let ((flags (coding-system-flags coding)) |
| 268 | (i 0)) | 265 | (i 0)) |
| @@ -274,7 +271,6 @@ set by the command `set-keyboard-coding-system'." | |||
| 274 | (aset encoded-kbd-iso2022-designations i | 271 | (aset encoded-kbd-iso2022-designations i |
| 275 | (car (aref flags i))))) | 272 | (car (aref flags i))))) |
| 276 | (setq i (1+ i)))) | 273 | (setq i (1+ i)))) |
| 277 | (make-variable-buffer-local 'encoded-kbd-iso2022-invocations) | ||
| 278 | (setq encoded-kbd-iso2022-invocations (make-vector 3 nil)) | 274 | (setq encoded-kbd-iso2022-invocations (make-vector 3 nil)) |
| 279 | (aset encoded-kbd-iso2022-invocations 0 0) | 275 | (aset encoded-kbd-iso2022-invocations 0 0) |
| 280 | (aset encoded-kbd-iso2022-invocations 1 1)) | 276 | (aset encoded-kbd-iso2022-invocations 1 1)) |