Emacs Part 39

[0001 名無しさん＠お腹いっぱい。 2011/11/29(火) 17:50:44.24]

前スレ

Emacs Part 38
http://hibari.2ch.net/test/read.cgi/unix/1308635178/

[0542 名無しさん＠お腹いっぱい。 2012/01/06(金) 14:29:08.57]

(defun somefunc ()
(interactive)
(let ((buf (save-excursion
(save-restriction
(widen)
(buffer-substring-no-properties (point-min) (point-max)))))
str)

(save-match-data
(while (and (setq str (read-string "input:"))
(string-match (regexp-quote str) buf))))

(insert (format "%s" (make-my-decoration str)))
))

[0543 名無しさん＠お腹いっぱい。 2012/01/06(金) 14:38:52.45]

>>542
widen するかどうかは処理内容によるんじゃないのか？あとバッファ全コピはやりすぎだ

(defun somefunc ()
(interactive)
(let (str)
(save-match-data
(while (and (setq str (read-string "input:"))
(save-excursion
(goto-char (point-min))
(search-forward str nil t))))

(insert (format "%s" (なんか str)))
)))