YYoshikawaです。
記述順を
(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)
としたら[Del]キーで右文字削除できるようになりました。
でも[Ctrl]+[a]やマウスで反転表示させた箇所の[Del]削除は出来なくなりました。
反転表示箇所の[Del]削除はカーソル左文字削除と同じ動作になっているのだから無
理なんですね。