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

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

ANS さん、こんにちは。

	2001年1月31日(水)[12:43:55]の、
	[xyzzy:06031] Re: register 系コマンドについて？
	への返事です。

| ところで、やはり Muleでいう"view-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)))))))

-- 
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx