🚀 go-pugleaf

In article <OGAWA.92Feb19094020@belldandy.secom.co.jp> ogawa@secom.co.jp (OGAWA Youichi) writes:


     $B%I%b!$>.@n!w%;%3%`$G$9!%(B

   >>>>> "$B>#C+(B" == <E64022A.92Feb17011955@ccsparc01.center.osaka-u.ac.jp>,
   >>>>> 		e64022a@ccsparc01.center.osaka-u.ac.jp (MASUTANI Yasuhiro) writes:

   $B>#C+(B> $B;d$O!$%U%!%$%k$NKvHx$NITMW$J6u9T$r>C$9$?$a$K!$8+$($F$$$k:G8e$N9T$N<!$N(B
   $B>#C+(B> $B9T$N@h(B$BF,$G(BBELL$B$,LD$k$^$G(BC-k$B$r2!$7B3$1$k$H$$$&$3$H$r$d$C$F$$$^$7$?(B

     $B;d$O%U%!%$%kKvHx$N6u9T$r>C$9;~$O(B M-z (zap-to-char) $B$r;H$C(B
   $B$F$^$9!%$3$l$@$H6u9T$@$1$8$c$J$/$F!V$3$C$+$i@h%U%!%$%k$N:G8e(B
   $B$^$GA4It>C$7(B$B$?$$!W$H$$$&;~$K$b;H$($FJXMx$G$9!%(B

$B$_$J$5$s9)IW$7$F$*$i$l$k$h$&$G$9$,!"$=$b$=$b(B C-n $B$G2<$K9T$/$@$1$G(B
$B%U%!%$%kKvHx$K6u9T$,F~$C$F$7$^$&$N$,4V0c$$$N$b$H$G$O!#;d$O$3$s$J(B
$B$N$r(B .emacs $B$KF~$l$F$$$^$9$,!#(B

$B!]$U(B

(defun define-key-if (map stroke func)
  "In keymap MAP, define keystroke command STROKE if and only if
function FUNC is defined."
  (if (fboundp func)
      (define-key map stroke func)))

(defun uiop-next-line (&optional count)
  "go to next line but does not extend the end of buffer."
  (interactive "p")
  (if (and (eq (point) (point-max))
	   (eq (point) (save-excursion (beginning-of-line) (point))))
      (message "End of buffer")
    (next-line count)))

(define-key-if global-map "\C-N" 'uiop-next-line)
--
-Junio Hamano (junio@twinsun.com)