aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-08-19 01:22:06 +0000
committerRichard M. Stallman1997-08-19 01:22:06 +0000
commitce8f7cc1a24d0ad13453a88ef97a6bfd49ab34ab (patch)
tree61aa5731b4282df1867617a03157d3caedcbec56
parentddb3136ef766af1991e170118076cf2400008ca9 (diff)
downloademacs-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.el4
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))