[Date Prev] [Date Index] [Date Next]
[Thread Prev] [Thread Index] [Thread Next]

[xyzzy:03918] 行番号つきラインコピー (と質問)



吉田 豊です。

行番号つきでラインをコピーするlispを書いたので、
行末に載っけておきます。

基本関数はいろんな所からぱくってます。
copy-lineを作った人と亀井さんに感謝。

で、いったいどんな時に使うんやーっ!!って感じだとは思いますが
他人の文章を添削したりする時に便利です。
良かったら使ってやってください。

で、質問なのですが、view-modeのときだけ、
tabでother-windowが働くようにするにはどうしたら良いのでしょうか?

よろしくお願いします。

# lispの添削も重ねてお願いいたします。

(defun copy-line-with_linenum ()
  ;行番号付きで一行コピー
  (interactive)
  (set-kill-ring
   (format nil "~D: ~A"
		   (current-line-number) (copy-line2))))

(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 ()
  ;ポイントから行末までの文字列を返す
  (let ((b nil)     ;; 局所変数を定義してやる
        (e nil))
    (save-excursion
      (setq b (point))
      (goto-eol)
      (setq e (point))
	  (buffer-substring b e))))

------------------------------------------------------------
吉田豊		e-mail <p95095yy@xxxxxxxxxxxxxxxxx>

Index Home