mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-15 11:21:19 -07:00
Code Issues Projects Releases Wiki Activity

(encoded-kbd-self-insert-iso2022-8bit): New arg ARG. Directly

Browse source 
call self-insert-command.   This is a temporary workaround to
make it work with latin-1.
(encoded-kbd-mode): Change `sjis' to `shift-jis'.
This commit is contained in:
Kenichi Handa 2002-05-14 07:50:09 +00:00
parent ed0cb46526
commit dbeabda3e3
1 changed files with 14 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/international/encoded-kb.el
View file

@ -189,23 +189,27 @@ The following key sequence may cause multilingual text insertion."
(aset encoded-kbd-iso2022-invocations 2 nil)
(setq unread-command-events (cons char unread-command-events))))
(defun encoded-kbd-self-insert-iso2022-8bit ()
(interactive)
(defun encoded-kbd-self-insert-iso2022-8bit (arg)
(interactive "p")
(cond
((= last-command-char ?\216) ; SS2 (Single Shift 2)
(aset encoded-kbd-iso2022-invocations 2 2))
((= last-command-char ?\217) ; SS3 (Single Shift 3)
(aset encoded-kbd-iso2022-invocations 2 3))
(t
(let* ((charset (aref encoded-kbd-iso2022-designations
(or (aref encoded-kbd-iso2022-invocations 2)
(aref encoded-kbd-iso2022-invocations 1))))
(char (if (= (charset-dimension charset) 1)
(make-char charset last-command-char)
(let* ((charset (aref encoded-kbd-iso2022-designations
(or (aref encoded-kbd-iso2022-invocations 2)
(aref encoded-kbd-iso2022-invocations 1))))
(char (if (= (charset-dimension charset) 1)
(make-char charset last-command-char)
(make-char charset last-command-char
(read-char-exclusive)))))
(aset encoded-kbd-iso2022-invocations 2 nil)
(setq unread-command-events (cons char unread-command-events))))))
(aset encoded-kbd-iso2022-invocations 2 nil)
;; As simply setting unread-command-events may result in
;; infinite-loop for characters 160..255, this is a temporary
;; workaround until we found a better solution.
(let ((last-command-char char))
(self-insert-command arg))))))
(defun encoded-kbd-self-insert-sjis ()
(interactive)
@ -311,7 +315,7 @@ as a multilingual text encoded in a coding system set by
(setq encoded-kbd-mode nil)
(error "No coding system for keyboard input is set"))
((eq (coding-system-type coding) 'sjis)
((eq (coding-system-type coding) 'shift-jis)
(set-input-mode
(nth 0 saved-input-mode) (nth 1 saved-input-mode)
'use-8th-bit (nth 3 saved-input-mode))