Path: sran124!katsu
From: katsu@sra.co.jp (WATANABE Katsuhiro)
Message-ID: <KATSU.90Jun5144646@sran14.sra.co.jp>
Date: 5 Jun 90 14:46:46
Organization: Software Research Associates, Inc.,Japan
Newsgroups: sra.test, junk
Subject: Today's junk article
Distribution: sra



天安門事件１周年（＋１日）記念特別企画

			「本日のゴミ記事」

この企画の趣旨：
	特になし。やりたいからやってるだけ。日記をめざしている。
	天安門事件との関係？……ええと……。

        でも、技術的なネタは尽きているので、
	今回は日記らしく、ほのぼのとした内容です。




	「勉強するひまがない」


  Nemacs を使っていて、C-f を使って漢字のテキスト上でポイントを
移動する時、C-u で引数を指定すると（私の）意図どうりにポイントが
移動してくれません。
  例えば次の行で、ポイントが「あ」の上にあった時に C-u 3 C-f とやると

            あいうえお

初心者の私はポイントが「え」に移動して欲しいのですが、実際は「い」に
移動します。ちなみに C-f C-f C-f ならば当然「え」に移動します。

  私以外にも、２人（どちらも emacs はバリバリ）の人が知らなかったから、
案外他にも知らなかった人がいるかもしれません。



（閑話休題ここから本題）

  さてはて、私がこのことを川辺さんに知らせて（１２時４５分ごろ）、
「こっそり勉強して、後で C-f を別な関数に割り当ててしまおう」などと
考えつつ外にお昼をとりにいって戻ってくると、........

===========================================
Subject: Nemacs cursor movement
Date: Tue, 05 Jun 90 12:56:03 +0900
From: kawabe@sran154.sra.co.jp


先ほどの Nemacs の カーソルの移動の問題ですが
次のようにすれば直ります。

(global-set-key "¥C-f" 'kanji-move-forward)
(global-set-key "¥C-b" 'kanji-move-backward)

(defun kanji-move-forward (p)
  (interactive "p")
  (if (> p 0)
      (while (> p 0) (forward-char 1) (setq p (1- p)))
    (kanji-move-backward (- 0 p))))
    
(defun kanji-move-backward (p)
  (interactive "p")
  (if (> p 0)
      (while (> p 0) (backward-char 1) (setq p (1- p)))
    (kanji-move-forward (- 0 p))))

------------------------------------------------------------
				川辺 ，環境開発部 ，ＳＲＡ

===========================================

  と、あっという間に mail が届いていたのでありました。
（というか、あっと言う前に既に届いていたわけです。）

  これは、私に emacs lisp を勉強させまいという、川辺さんの
陰湿ないぢめではないでしょうか？ :-)

--
----____----____
渡邊克宏　環境開発部		今月の歌：
				「♪ 僕等の名前を覚えて欲しい
				  大型機を知らない子供達さ ♪」