diff -uNr pobox-el_1.15.1/pobox-conf.el pobox-el_1.15.1_new/pobox-conf.el --- pobox-el_1.15.1/pobox-conf.el Sat Sep 28 15:24:48 2002 +++ pobox-el_1.15.1_new/pobox-conf.el Sun Dec 15 00:37:41 2002 @@ -92,19 +92,19 @@ ;;;; 各変換エンジンのカスタマイズ ;;;; ============================================================ ;; 優先順位および初期使用フラグ -;(setq pobox-engine-list -; '((pobox-engine-alphabet . t) -; (pobox-engine-dabbrev) -; (pobox-engine-bc) -; (pobox-engine-pbserver . t) -; (pobox-engine-pbserv) -; (pobox-engine-pogemo) -; (pobox-engine-canna))) +(setq pobox-engine-list + '((pobox-engine-alphabet) + (pobox-engine-dabbrev) + (pobox-engine-bc) + (pobox-engine-pbserver . t) + (pobox-engine-pbserv) + (pobox-engine-pogemo) + (pobox-engine-canna))) ;; 接続する pbserver のホスト名 -;(setq pobox-engine-pbserver-server "localhost") +(setq pobox-engine-pbserver-server "localhost") ;; pbserver が使用するポート番号 -;(setq pobox-engine-pbserver-port 1178) +(setq pobox-engine-pbserver-port 1178) ;; 接続する pbserv のホスト名 ;(setq pobox-engine-pbserv-server "localhost") diff -uNr pobox-el_1.15.1/pobox-input-mode.el pobox-el_1.15.1_new/pobox-input-mode.el --- pobox-el_1.15.1/pobox-input-mode.el Sun Aug 25 23:24:47 2002 +++ pobox-el_1.15.1_new/pobox-input-mode.el Sat Dec 14 22:58:48 2002 @@ -130,6 +130,17 @@ (pobox-disp-input) )) +(defun pobox-input-backward-delete-char () + (interactive) + (or (= pobox-input-column 0) + (progn + (setq pobox-pat (substring pobox-pat 0 (1- (length pobox-pat)))) + (setq pobox-input-column (1- pobox-input-column)))) + (if (= (length pobox-pat) 0) + (pobox-conv-cancel-all) + (pobox-disp-input) + )) + (defun pobox-input-split () (interactive) (setq pobox-next-pattern (substring pobox-pat pobox-input-column)) diff -uNr pobox-el_1.15.1/pobox.el pobox-el_1.15.1_new/pobox.el --- pobox-el_1.15.1/pobox.el Sat Sep 28 15:24:49 2002 +++ pobox-el_1.15.1_new/pobox.el Sat Dec 14 22:58:48 2002 @@ -92,6 +92,9 @@ (substitute-key-definition 'delete-backward-char 'pobox-input-delete-backward-char map global-map) + (substitute-key-definition 'backward-delete-char + 'pobox-input-backward-delete-char + map global-map) (substitute-key-definition 'delete-char 'pobox-input-delete-char map global-map) (substitute-key-definition 'universal-argument