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

[kamo@xxxxxxxxxxxxxx (KAMO Tomoyuki)]

  かもです。

From: "YYoshikawa" <YukaYoshikawa@xxxxxxxx>
Date: Thu, 26 Sep 2002 23:58:31 +0900
Subject: [vine-users:053825] 全範囲選択を [Ctrl]+[a] して [Delete] か [BackSpace] で削除

>> YYoshikawaです。お世話様です。

>> (setq mouse-region-delete-keys '([delete] [backspace]))

  mouse.el を読んでみましたが、mouse-region-delete-keys はその名のとお
りマウスで region を指定したときのみ有効っぽいです。

  [linux-users:93081] http://search.luky.org/linux-users.9/msg03090.html
を XEmacs でも GNU Emacs でも動くように改造してみました。
  これならキーボードで region を選択した場合でも使えると思います。
  (transient-mark-mode t) してお使いください。

===

(defun my-delete-region-or-backward-char (&optional count)
  "region が active なときはその region を、
そうでないときはカーソル以前の 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)

             *------------==================------------*
  ≡   ≡
    .   .  『flame 両成敗』
Ｃ    ▼                             加茂智之 ◇ kamo@xxxxxxxxxxxxxx