(defun copy-line-with-linenum () ;行番号付きで一行コピー (interactive) (set-kill-ring (format nil "~A:~D: ~A" (buffer-name (selected-buffer)) (current-line-number) (copy-line2))) (popup-string "行コピー" (point))) (defun set-kill-ring (str…

キーワードxyzzyから飛んできてくれた方、すみません。 今のところここには充実したコンテンツはありません。 もし、以下ののlispがお役にたてれば幸いです。