行番号付きで一行コピー

(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)))))