行番号つきでバッファをコピーする - bonotakeの日記

行番号つきでバッファをコピーする - bonotakeの日記

３年ぶりのxyzzyタグとか。 バッファに行番号を付加するっての、確か昔どっかでそういうコードを拾った...概要を表示 ３年ぶりのxyzzyタグとか。 バッファに行番号を付加するっての、確か昔どっかでそういうコードを拾った記憶があって、実際昔書いたドキュメントに使ってたりするんだけど、今日やろうと思ったら手元にもネットにも見当たらず。 なので、このへん参考に適当に作った。 でも、絶対どっかに落ちてると思うんだよなー。 (defun copy-buffer-as-kill-with-numbering () (interactive) (let ((str "")) (save-excursion (progn (beginning-of-buffer) (dotimes (i (buffer-lines)) (setq str (concat str (get-current-line-with-numbering (buffer-lines)) (format nil "~C" #\LFD))) (nex