comparison lisp/international/quail.el @ 21659:70c5f2b7e3a8

(quail-start-translation): Bind prefix-arg to current-prefix-arg. (quail-mode): Doc-string modified.

21658:d8a81542dbf9

(defun quail-mode (&optional arg)
  "Toggle Quail minor mode.
With arg, turn Quail mode on if and only if arg is positive.

You should not turn on and off Quail mode manually, instead use
the commands `toggle-input-method' or `set-input-method' (which
see).  They automatically turn on or off this mode.

Try \\[describe-bindings] in Quail mode to see the available key bindings.
The command \\[describe-input-method] describes the current Quail package."
  (setq quail-mode
	(if (null arg) (null quail-mode)
	  (> (prefix-numeric-value arg) 0)))
  (if (null quail-mode)
      ;; Let's turn off Quail mode.

(defvar quail-prefix-arg nil)

(defun quail-start-translation (arg)
  "Start translating the typed character in Quail mode."
  (interactive "*p")
  (setq prefix-arg arg)
  (setq quail-prefix-arg arg)
  (setq unread-command-events
	(cons last-command-event unread-command-events))
  ;; Check the possibility of translating the last key.
  (if (and (integerp last-command-event)

21659:70c5f2b7e3a8

(defun quail-mode (&optional arg)
  "Toggle Quail minor mode.
With arg, turn Quail mode on if and only if arg is positive.

In Quail mode, all printable characters are bound to
`quail-start-translation'.  This function checks if the current input
method will translate the last input key.  If not, the key is handled
out of Quail mode, i.e, in another activated minor mode or in the
current major mode.
\\{quail-mode-map}
Unlike the other minor modes, this is not an interactive function.
Use the commands \\[toggle-input-method] (`toggle-input-method') or
\\[set-input-method] (`set-input-method') which automatically turn on
Quail mode with an appropriate Quail package, or turn it off."
  (setq quail-mode
	(if (null arg) (null quail-mode)
	  (> (prefix-numeric-value arg) 0)))
  (if (null quail-mode)
      ;; Let's turn off Quail mode.

(defvar quail-prefix-arg nil)

(defun quail-start-translation (arg)
  "Start translating the typed character in Quail mode."
  (interactive "*p")
  (setq prefix-arg current-prefix-arg)
  (setq quail-prefix-arg arg)
  (setq unread-command-events
	(cons last-command-event unread-command-events))
  ;; Check the possibility of translating the last key.
  (if (and (integerp last-command-event)