[[About:self:AboutPage.txt]] | [[Profile:http://iddy.jp/profile/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/]] | [[あんてな:http://i-know.jp/southly/listall]] | [[■:http://raido.sakura.ne.jp/southly/lisp/ni/view.lisp]] | [[buzz:http://www.google.com/profiles/southly#buzz]]

• elisp を書く気はさらさらないので (requre 'cl) には拘らないです。
• 具体例として、現在の .emacs はこんな感じです。
• session.el
• tails-history.el
• キーバインドを覚えていないのですが、M-x の履歴で何とかしています。

[[(ReadMore...) index.rb?1205059356.txt]]

とりあえずできた。REPL では動作確認できた。
要 cl-interpol。
SANO さんの情報がなかったらどうにか interpol-reader を使えないか、悩んでいたかも。サンクスです。
[[(ReadMore...) index.rb?1204642645.txt]]

• [[fixdap に xyzzy のプロジェクトを作った - *Trace Output*:xyzzy]]ということなので参加してみた。→xyzzy/
• revert-buffer-normalの件

• Buffer::goto_char (Point &point, point_t goal) const
• point 現在位置
• goal 目標位置
• b_contents.p1 (point-min)相当
• b_contents.p2 (point-max)相当
• b_nchars バッファのサイズ

現在位置と前と後ろと目標位置との関係を調べて、近いほうから進む？

• Buffer::forward_char (Point &point, long nchars) const
• point 現在位置
• nchars 進む数
• b_contents.p1 (point-min)相当
• b_contents.p2 (point-max)相当
• d 実際の移動

なんか最近Lisp書いてないので書き捨ててみた
C++用

(defun foo ()
  (interactive)
  (let ((l nil))
    (save-excursion
      (goto-char (point-min))
      (while (scan-buffer "\\bstd::\\(\\sw\\|\\s_\\)+" :regexp t :no-dup t)
        (pushnew (match-string 0) l :test #'string=)))
    (dolist (x l)
      (insert (format nil "using ~a;~%" x)))))

(defun bar ()
  (interactive)
  (perform-replace "\\bstd::\\(\\(\\sw\\|\\s_\\)+\\)" "\\1" nil t nil nil))