[xyzzy:03382] Re: クリップボード

[堀川 久 <vzw00011@xxxxxxxxxxx>]

　こんにちは。

Tetsuya Kameiさんの
Message-Id: <199910181206.VAA05261@xxxxxxxxxxxxxxxxxxxx>から
>0.1.0.107 からは (mark t) でできます。それ以前だったら
>(ignore-errors (mark)) が一番簡単でしょう。

　このようにしました。

(defun post-command-highlight-between-point-and-mark ()
  (interactive)
  (delete-text-attributes highlight-tag)
  (if (ignore-errors (mark))
	(let ((mark (mark)))
    	(eval (append `(set-text-attribute ,mark ,(point) highlight-tag)
		  	highlight-attribute)))))

　有り難うございました。今後ともよろしくお願いします。

-- 
HORIKAWA Hisashi (堀川　久)
http://www2.airnet.ne.jp/pak04955/
mailto:vzw00011@xxxxxxxxxxx
PGP Fingerprint: F9BE 4B60 E1DD E2D5 B969 B64F 0D6E 268D 276D F38D