[vine-users:053942] Re: 全範囲選択を [Ctrl]+[a] して [Delete] か [BackSpace] で削除

[Kasai Tsuneo <Kasai.Tsuneo@xxxxxxxxxxxxxxx>]

>すいません。それにはどう記述すればいいのでしょうか?
試していませんが、こんな感じでしょう。

(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)))
(defun my-delete-region-or-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-char count)))
;(global-set-key [delete] 'my-delete-region-or-backward-char)
(global-set-key [delete] 'my-delete-region-or-char)
(global-set-key [backspace] 'my-delete-region-or-backward-char)
;(global-set-key "\C-h" 'my-delete-region-or-backward-char)

河西庸雄 ---* mailto:kasai.tsuneo@xxxxxxxxxxxxxxx *---
セイコーエプソン株式会社 研究開発本部 コアテクノロジー開発部 画像情報技術開発室