Emacs Lisp 3 - 暇つぶし2ch

Emacs Lisp 3 ..

97:デフォルトの名無しさん
08/09/28 08:05:33
;; エレガントかどうか知らんけど、最終行でも動作が変わらないようにしてみました
(defun duplicate-line (n)
(interactive "p")
(save-excursion
(let ((str (concat (buffer-substring (line-beginning-position)
(line-end-position))
"\n")))
(forward-line)
(when (= (line-end-position)
(point-max))
(insert "\n"))
(dotimes (i n)
(insert str)))))

次ページ

続きを表示

1を表示