emacs: lisp/international/encoded-kb.el comparison

comparison lisp/international/encoded-kb.el @ 83325:9e41c80c6389

Work around nondeterministic binding of terminal-local variables. (Fixes national character input on ttys.) * src/data.c (Fterminal_local_value, Fset_terminal_local_value): New functions. (syms_of_data): Defsubr them. * lisp/international/encoded-kb.el (encoded-kbd-setup-keymap): Add keymap parameter. Use it instead of changing key-translation-map directly. (encoded-kbd-setup-display): Use terminal-local-value and set-terminal-local-value to access key-translation-map. Remove debugging messages. * lisp/international/mule.el (keyboard-coding-system): Test for encoded-kbd-setup-display, not encoded-kbd-mode. * src/keyboard.c (syms_of_keyboard): Expand docs of terminal-local variables to warn about their random bindings. git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-365

author	Karoly Lorentey <lorentey@elte.hu>
date	Mon, 27 Jun 2005 02:08:34 +0000
parents	f6ed7ae6fa8d
children	6c13700d1c13

comparison

equal deleted inserted replaced

-:eed3bdcacf4d
+:9e41c80c6389
 (while (= (length (setq result (ccl-execute-on-string ccl vec str t))) 0)
 (dotimes (i 9) (aset vec i nil))
 (setq str (format "%s%c" str (read-char-exclusive))))
 (vector (aref result 0))))
-(defun encoded-kbd-setup-keymap (coding)
+(defun encoded-kbd-setup-keymap (keymap coding)
 ;; At first, reset the keymap.
 (define-key encoded-kbd-mode-map "\e" nil)
 ;; Then setup the keymap according to the keyboard coding system.
 (cond
 ((eq (coding-system-type coding) 1)	; SJIS
 (let ((i 128))
 (while (< i 256)
-	(define-key key-translation-map
+	(define-key keymap
 	  (vector i) 'encoded-kbd-self-insert-sjis)
 	(setq i (1+ i))))
 8)
 ((eq (coding-system-type coding) 3)	; Big5
 (let ((i 161))
 (while (< i 255)
-	(define-key key-translation-map
+	(define-key keymap
 	  (vector i) 'encoded-kbd-self-insert-big5)
 	(setq i (1+ i))))
 8)
 ((eq (coding-system-type coding) 2) ; ISO-2022
 	(aset encoded-kbd-iso2022-invocations 0 0)
 	(if (aref encoded-kbd-iso2022-designations 1)
 	    (aset encoded-kbd-iso2022-invocations 1 1))
 	(when use-designation
 	  (define-key encoded-kbd-mode-map "\e" 'encoded-kbd-iso2022-esc-prefix)
-	  (define-key key-translation-map "\e" 'encoded-kbd-iso2022-esc-prefix))
+	  (define-key keymap "\e" 'encoded-kbd-iso2022-esc-prefix))
 	(when (or (aref flags 2) (aref flags 3))
-	  (define-key key-translation-map
+	  (define-key keymap
 	    [?\216] 'encoded-kbd-iso2022-single-shift)
-	  (define-key key-translation-map
+	  (define-key keymap
 	    [?\217] 'encoded-kbd-iso2022-single-shift))
 	(or (eq (aref flags 0) 'ascii)
 	    (dotimes (i 96)
-	      (define-key key-translation-map
+	      (define-key keymap
 		(vector (+ 32 i)) 'encoded-kbd-self-insert-iso2022-7bit)))
 	(if (aref flags 7)
 	    t
 	  (dotimes (i 96)
-	    (define-key key-translation-map
+	    (define-key keymap
 	      (vector (+ 160 i)) 'encoded-kbd-self-insert-iso2022-8bit))
 	  8))))
 ((eq (coding-system-type coding) 4)	; CCL-base
 (let ((valid-codes (or (coding-system-get coding 'valid-codes)
 	(if (consp elt)
 	    (setq from (car elt) to (cdr elt))
 	  (setq from (setq to elt)))
 	(while (<= from to)
 	  (if (>= from 128)
-	      (define-key key-translation-map
+	      (define-key keymap
 		(vector from) 'encoded-kbd-self-insert-ccl))
 	  (setq from (1+ from))))
 8))
 (t
 DISPLAY may be a display id, a frame, or nil for the selected frame's display."
 (let ((frame (if (framep display) display (car (frames-on-display-list display)))))
 (when frame
 (with-selected-frame frame
-	(message (format "encoded-kbd-setup-display %s %s %s" display frame key-translation-map))
 	;; Remove any previous encoded-kb keymap from key-translation-map.
-	(let ((m key-translation-map))
+	(let ((m (terminal-local-value 'key-translation-map frame)))
 	  (if (equal (keymap-prompt m) "encoded-kb")
-	      (setq key-translation-map (keymap-parent m))
+	      (set-terminal-local-value 'key-translation-map frame (keymap-parent m))
 	    (while (keymap-parent m)
 	      (if (equal (keymap-prompt (keymap-parent m)) "encoded-kb")
 		  (set-keymap-parent m (keymap-parent (keymap-parent m))))
 	      (setq m (keymap-parent m)))))
 	(if (keyboard-coding-system)
 	    ;; We are turning on Encoded-kbd mode.
 	    (let ((coding (keyboard-coding-system))
 		  (keymap (make-sparse-keymap "encoded-kb"))
 		  result)
-	      (set-keymap-parent keymap key-translation-map)
+	      (set-keymap-parent keymap (terminal-local-value 'key-translation-map frame))
-	      (setq key-translation-map keymap)
+	      (set-terminal-local-value 'key-translation-map frame keymap)
 	      (or saved-input-mode
 		  (setq saved-input-mode (current-input-mode)))
-	      (setq result (and coding (encoded-kbd-setup-keymap coding)))
+	      (setq result (and coding (encoded-kbd-setup-keymap keymap coding)))
 	      (if result
 		  (if (eq result 8)
 		      (set-input-mode
 		       (nth 0 saved-input-mode)
 		       (nth 1 saved-input-mode)
 		(error "Unsupported coding system in Encoded-kbd mode: %S"
 		       coding)))
 	  ;; We are turning off Encoded-kbd mode.
 	  (and saved-input-mode
 	       (apply 'set-input-mode saved-input-mode))
-	  (setq saved-input-mode nil))
+	  (setq saved-input-mode nil))))))
-	(when (not (eq (selected-frame) frame))
-	  (error "Anyátok picsája!"))))))
 (provide 'encoded-kb)
 ;;; arch-tag: 76f0f9b3-65e7-45c3-b692-59509a87ad44
 ;;; encoded-kb.el ends here

Mercurial > emacs

comparison lisp/international/encoded-kb.el @ 83325:9e41c80c6389