[xyzzy:06034] Re: register 系コマンドについて？

[Akihiro Nakamura <ans-home@xxxxxxxxxxxxx>]

KAMEI Tetsuya <kamei@xxxxxxxxxxxx> さん、こんにちは。ANS です。

        Wed, 31 Jan 2001 13:12:26 +0900 の
        [xyzzy:06032] Re: register 系コマンドについて？
        への返事です。


>作ればあります(^^;
>
>(defun view-register (r)
>  (interactive "cView register: ")
>  (let ((val (ed::get-register r)))
>    (if (null val)
>	(message "Register ~a is empty" r)
>      (with-output-to-temp-buffer ("*output*")
>	(format t "Register \"~a\" contains " r)
>	(cond ((markerp val)
>	       (let ((buffer (marker-buffer val)))
>		 (if (null buffer)
>		     (princ "a marker in deleted buffer.")
>		   (format t "a buffer position:\nbuffer ~a, position ~a"
>			   (buffer-name buffer) (marker-point val)))))
>	      ((and (consp val)
>		    (eq (car val) 'window-configuration))
>	       (princ "a window configuration."))
>	      ((consp val)
>	       (format t "the rectangle:\n~{~a~^\n~}" val))
>	      ((stringp val)
>	       (format t "the text:\n~a" val))
>	      (t
>	       (format t "Garbage:\n~s" val)))))))
>
わざわざ作っていただいてありがとうございます。お手数をおかけしました。
勉強材料＆実務に使わせていただきます。

ところで、少しCommon-Lispがわかってきたので・・・（まだまだですが）
Xyzzyの *.l でXyzzyのLispの勉強をしようと思うのですが
初学者は、この辺の *.l 〜このあたりの *.l からはいるといいよ！
っていうのがありましたら、お教え願いたいのですが。
プログラム自体が初心者なので・・・上のは、なんとなくわかります、
（関数の細かい所までは、わかりませんが）
どなたか、よろしくお願いします。

------------------------------------------------------------
ANS 
----
中村　彰宏　Akihiro Nakamura