🚀 go-pugleaf

土屋さん:
> 
> 
> 最近、henkan-kakutei-first-char という機能があるのに気がついて、
> 大変便利に利用しています。
	:
	:
> で、これは便利なんですけど、逆に最後の1文字だけ残したい場合はど
> うしたらいいでしょうか? つまり、表題にも書いたように、
> 	henkan-kakutei-last-char
> もあったら便利だろうなぁ、と思うんですけど。どうやったら実現でき
> るでしょうか?

wnn-egg.el の henkan-kakutei-first-char の start
と end を一部入れ換えただけですが, こんなもんでい
かがでしょうか.

-- 
櫻田英樹 <sakurada@kuis.kyoto-u.ac.jp>

(define-key henkan-mode-map "\M-\ " 'henkan-kakutei-last-char)

(defun henkan-kakutei-last-char ()
  "確定文字列の最後の一文字だけ挿入する。"
  ;; Most of this code was fetched from wnn-egg.el
  (interactive)
  (egg:bunsetu-face-off)
  (egg:henkan-face-off)
  (delete-region (- egg:*region-start* (length egg:*henkan-open*))
		 egg:*region-start*)
  (delete-region egg:*region-start* egg:*region-end*)
  (delete-region egg:*region-end* (+ egg:*region-end*
				     ;; 92.8.5  by Y.Kasai
				     (length egg:*henkan-close*)))
  (goto-char egg:*region-start*)
  (insert (car (wnn-server-bunsetu-kanji 0)))
  (if (not overwrite-mode)
      (undo-boundary))
  (goto-char egg:*region-end*)
  (forward-char -1)
  (delete-region (point) egg:*region-start*)
  (wnn-server-hindo-update)
  (setq egg:henkan-mode-in-use nil)
  (egg:quit-egg-mode))