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

["Shirai,Kaoru" <shirai _at_ xxxxxxxx>]

$B!!Gr0f$G$9!#(B

> $B%^%&%9$GNN0h$rA*Br$7$F(B[Delete]$B$d(B[BackSpace]$B%-!<$r2!$7$F$b$=$NNN0h$,:o=|(B
> $B$5$l$^$;$s!#(B

$B!!=(4]JJ$,H4$1@Z$C$F$$$J$+$C$?:"$N(B elisp $B$,$"$j$^$9!#;H$C$F$_$F2<$5$$!#(B

(require 'pc-select)
  (pc-select-mode)

(defun delete-key-hidemaru ()
  (interactive)
  (if (region-exists-p) ;; region-exists-p is XEmacs only
      (progn
	(delete-region (point) (mark)))
    (progn
      (delete-char 1))
  )
)

(global-set-key [delete] 'delete-key-hidemaru)


-- 
shirai _at_ p1jp.com

Shirai,Kaoru
  PlusOne Co.,Ltd