(承前) 先の Tips…

jrf> (承前)

先の Tips を更新。若干ダーティだけど、以下のようにしたほうが、意図どおりの動作になると思う。

<pre>
(require 'quail-naggy)

(defun quail-naggy-alt-convert-naggy-backend-command-advice
    (old-function &rest args)
  (if (string= (caar args) "convert")
      (apply old-function
	     (list (list "convert" (concat (cadar args) ":"))))
    (apply old-function args)))

(defun quail-naggy-alt-convert ()
  (interactive)
  (advice-add 'naggy-backend-command :around
	      #'quail-naggy-alt-convert-naggy-backend-command-advice)
  (unwind-protect
      (quail-naggy-convert)
    (advice-remove 'naggy-backend-command
		   #'quail-naggy-alt-convert-naggy-backend-command-advice)))

(add-hook 'input-method-activate-hook
	  (lambda ()
	    (if (string= (quail-name) "japanese-naggy")
		(progn
		  (define-key (quail-conversion-keymap)
			      [?\S- ] 'quail-naggy-alt-convert)
		  (define-key (quail-conversion-keymap)
			      [?\C- ] 'quail-naggy-insert-space)))))
</pre>