Re: buffer 内の位置を読み込む方法は

Article View: fj.editor.emacs

Article #540

#540

From: ms
Date: Fri, 09 Jul 2004 07:51

36 lines
2362 bytes

難波さん、山岡さん、ありがとうございました。

いろいろ御教示いただきましたが、まず、read-event と 
echo-keystrokes を使用して、

@begin{get-point} ----------------------------------------------
(defun get-point ()
  (interactive)
  (let ((p nil))
    (while (not p)
      (let (key (pos nil))
	(setq key (let ((echo-keystrokes 0)) (read-event)))
	(cond 
	 ((or (eq key 14) (eq key 'down)); C-n
	  (next-line 1))
	 ((or (eq key 16) (eq key 'up)); C-p
	  (next-line -1))
	 ((or (eq key 6) (eq key 'right)); C-f
	  (forward-char 1))
	 ((or (eq key 2) (eq key 'left)); C-b
	  (forward-char -1))
	 (t
	  (setq pos (point))))
	(setq p pos)))
    p))
@end{get-point} ------------------------------------------------

として、関数 get-point を使用すれば、buffer 内の位置を対話的に指
定できることを確認しました。

カーソル移動のキー定義を一般的に書く方法も御教示頂きましたので、
これから書き直していきたいと思っています。

--
shiiba

Technical Details

Message-ID: <ullhthb49.fsf@tonewin.kuciv.kyoto-u.ac.jp>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeed.news.ucla.edu!newsfeed.media.kyoto-u.ac.jp!news.media.kyoto-u.ac.jp!not-for-mail

References: <uk6xf45hq.fsf@tonewin.kuciv.kyoto-u.ac.jp> <b9yisczgn1n.fsf@jpl.org>

Show Full Headers

Complete Article Headers

X-Google-Thread: ff358,3295602bb33cd8af
X-Google-Attributes: gidff358,public
X-Google-Language: Japanese,JIS
Path: arc1-ca.pugleaf.net!g2news1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeed.news.ucla.edu!newsfeed.media.kyoto-u.ac.jp!news.media.kyoto-u.ac.jp!not-for-mail
From: ms@wr.kuciv.kyoto-u.ac.jp
Newsgroups: fj.editor.emacs
Subject: Re: buffer 内の位置を読み込む方法は
Date: Fri, 09 Jul 2004 16:51:18 +0900
Organization: Academic Center for Computing and Media Studies, Kyoto University, JAPAN
Lines: 37
Message-ID: <ullhthb49.fsf@tonewin.kuciv.kyoto-u.ac.jp>
References: <uk6xf45hq.fsf@tonewin.kuciv.kyoto-u.ac.jp> <b9yisczgn1n.fsf@jpl.org>
NNTP-Posting-Host: wr.kuciv.kyoto-u.ac.jp
Mime-Version: 1.0 (generated by SEMI 1.14.5 - "Awara-Onsen")
Content-Type: text/plain; charset=ISO-2022-JP
X-Trace: caraway.media.kyoto-u.ac.jp 1089359480 26402 130.54.249.158 (9 Jul 2004 07:51:20 GMT)
X-Complaints-To: news@news.media.kyoto-u.ac.jp
NNTP-Posting-Date: Fri, 9 Jul 2004 07:51:20 +0000 (UTC)
User-Agent: T-gnus/6.16.2 (based on Gnus v5.10.2) (revision 02) SEMI/1.14.5 (Awara-Onsen) FLIM/1.14.5 (Demachiyanagi) APEL/10.6 Emacs/21.1 (i386-mingw-nt5.1.2600) MULE/5.0 (SAKAKI) Meadow/2.00 Beta2-dev (WOMINAHESHI)
Cancel-Lock: sha1:p2ur15WfNo5ak1GmMTRN8QKMeIQ=

Reply to Parent Message