xyzzyの使い方が分からぬやし励ましあえその12

xyzzyの使い方が分からぬやし励ましあえその12 at SOFTWARE

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

450:名無しさん＠お腹いっぱい。
 09/07/26 13:32:08 Y9pNODqi0
もし「単語単位で検索する」にチェックが入ってたら 
高級プリンおごること。

451:名無しさん＠お腹いっぱい。
 09/07/26 13:40:11 SeRkk82T0
それでした！ 
今度、プリン奢ります。

452:名無しさん＠お腹いっぱい。
 09/07/26 14:02:02 8IBbmXeX0
wq

453:名無しさん＠お腹いっぱい。
 09/07/27 10:36:09 tY7FrTRx0
apropos で開いた *Help*バッファを 
自動的に lisp-modeに設定することはできますか？

454:名無しさん＠お腹いっぱい。
 09/07/27 21:58:46 WPYnMlEA0
>>453 
ちょっと頑張ってみた 
 
(in-package "editor") 
(defparameter *apropos-original-definition* #'ed::apropos) 
(defun apropos (string &optional print-key pred) 
　 "指定した正規表現に一致するシンボルを表示します" 
　 (interactive "sApropos(Regexp): \np") 
　 (macrolet ((with-rename-buffer ((name tempname) &body body) 
　 　 　 　 　 　 　 　(let ((b (gensym))) 
　 　 　 　 　 　 　 　 　`(let ((,b (find-buffer ,name))) 
　 　 　 　 　 　 　 　 　 　 (unwind-protect 
　 　 　 　 　 　 　 　 　 　 　 　 (progn 
　 　 　 　 　 　 　 　 　 　 　 　 　 (if ,b (rename-buffer ,tempname ,b)) 
　 　 　 　 　 　 　 　 　 　 　 　 　 ,@body) 
　 　 　 　 　 　 　 　 　 　 　 (if ,b (rename-buffer ,name ,b))))))) 
　 　 (with-rename-buffer ("*Help*" " *Apropos Temp*") 
　 　 　 (with-rename-buffer ("*Apropos*" "*Help*") 
　 　 　 　 (funcall *apropos-original-definition* string print-key pred) 
　 　 　 　 (let ((buf (find-buffer "*Help*"))) 
　 　 　 　 　 (rename-buffer "*Apropos*" buf) 
　 　 　 　 　 (lisp-mode))))))

次ページ