[linux-users:93081] Re: XEmacs$B$G(B[Del]$B!"(B[BackSp]$B$G%^%&%9A*Br$7$?NN0h$r:o=|$7$?$$!#(B

[kamo _at_ xxxxxxxxxxxxxx (KAMO Tomoyuki)]

  $B$+$b$G$9!#(B

From: KaoriMochida <kaormchd _at_ plum.freemail.ne.jp>
Date: Wed, 22 May 2002 01:50:49 +0900
Subject: [linux-users:93071] XEmacs$B$G(B[Del]$B!"(B[BackSp]$B$G%^%&%9A*Br$7$?NN0h$r:o=|$7$?$$!#(B

>> KaoriMochida$B$H?=$7$^$9!#(B
>> 
>> RedHat7.2$B$G(BXEmacs21.1$B$r;HMQ$7$F$$$^$9!#(B

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

  $B$3$l$O(B GNU Emacs $BMQ$N@_Dj$@$H;W$$$^$9!#(B

>> $B$I$&$9$l$P(B[Delete]$B$d(B[BackSpace]$B%-!<$G$=$NNN0h$,:o=|$G$-$k$N$G$7$g$&$+(B?

  $B$3$s$J$N$G$I$&$G$7$g$&!#(B
  $B>u67$K$h$C$F$O$&$^$/F0$+$J$$$+$b$7$l$^$;$s$,!#(B

===

(defun my-delete-region-or-backward-char (&optional count)
  "region $B$,(B active $B$J$H$-$O$=$N(B region $B$r!"(B
$B$=$&$G$J$$$H$-$O%+!<%=%k0JA0$N(B COUNT $B8D$NJ8;z$r:o=|$9$k!#(B"
  (interactive "p")
  (if (region-active-p)
      (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)

             *------------==================------------*
  $B"a(B   $B"a(B
    .   .  $B!X(Bflame $BN>@.GT!Y(B
$B#C(B    $B"'(B                             $B2CLPCRG7(B $B!~(B kamo _at_ ITmanage.co.jp