行番号付きで一行コピー
(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 (string) ;stringをyankに追加 (setq *clipboard-newer-than-kill-ring-p* nil *kill-ring-newer-than-clipboard-p* t) (ed::kill-new string)) (defun copy-line2 () ;ポイントから行末までの文字列を返す (save-excursion (buffer-substring (point) (progn (goto-eol) (point)))))