YYosikawaです。
皆様、ご回答ありがとうございます。
KAMO Tomoyukiさんは[vine-users:053837]で書きました。
> (transient-mark-mode t) してお使いください。
：
> ;(global-set-key "\C-h" 'my-delete-region-or-backward-char)
どうもありがとうございます。
(transient-mark-mode t)
(defun my-delete-region-or-backward-char (&optional count)
(interactive "p")
(if (if (featurep 'xemacs)
(region-active-p)
(and transient-mark-mode
mark-active))
(delete-region (region-beginning)
(region-end))
(delete-backward-char count)))
(global-set-key [delete] 'my-delete-region-or-backward-char)
(global-set-key [backspace] 'my-delete-region-or-backward-char)
;(global-set-key "\C-h" 'my-delete-region-or-backward-char)
を書き足して見事希望通りになりました。
ところがこれを書き足したら
(define-key global-map [delete] delete-char)
でカーソル右文字削除していたのが効かなくなってしまいました。
(左文字削除になってしまいました)
これにはどう対処すればいいのでしょうか?
お手数お掛けして申し訳ありません。