;;; japanese.el --- Quail package for inputting Japanese -*-coding: iso-2022-7bit;-*-
-;; Copyright (C) 2001-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2001-2016 Free Software Foundation, Inc.
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
;; 2006, 2007, 2008, 2009, 2010, 2011
;; National Institute of Advanced Industrial Science and Technology (AIST)
(setq quail-current-str (aref quail-current-key 0))))
(if (integerp control-flag)
(setq unread-command-events
- (string-to-list
- (substring quail-current-key control-flag)))))))
+ (append
+ (substring quail-current-key control-flag)
+ unread-command-events))))))
control-flag)
;; Convert Hiragana <-> Katakana in the current translation region.
(defun quail-japanese-self-insert-and-switch-to-alpha (key idx)
(quail-delete-region)
- (setq unread-command-events (list (aref key (1- idx))))
+ (push (aref key (1- idx)) unread-command-events)
(quail-japanese-switch-package "q" 1))
(defvar quail-japanese-switch-table
("zk" "\e$B",\e(B")
("zl" "\e$B"*\e(B")
("z;" "\e$B!+\e(B") ("z:" "\e$B!,\e(B")
- ("z\'" "\e$B!F\e(B") ("z\"" "\e$B!H\e(B")
+ ("z'" "\e$B!F\e(B") ("z\"" "\e$B!H\e(B")
("zx" [":-"]) ("zX" [":-)"])
("zc" "\e$B!;\e(B") ("zC" "\e$B!n\e(B")