word-kill-ring-save

[URA Takefumi <hage@xxxxxxxxxxxxxxxxx>]

はじめまして。2週間くらい前からMeadowを本格的に使い始めた浦といいます。
それまではずっとDanaというエディタを使っておりました。

もともとVzというエディタを使っていてDanaでもずっとその配置にして使って
いましたからカーソル移動なんかでいまだに指がもつれることがあります。
できるだけデフォルトのキーバインディングで使おうと決心したので慣れるまで
しばらくかかるでしょう ^^;

で、見よう見まねでこんなものを作ってみました。カーソルのある位置の
単語をkill-ringに入れるやつです。C-uでコピーする単語数を指定できます。

さすがにこんな機能はどっかにありそうなんですけど、見つけられなかったので
作ってしまいました。結構ださいことやってますけど見逃してください ^^;
「見逃すわけにはいかない」とおっしゃるのであれば添削してやってください。

えー、挨拶をかねまして、以後よろしくお願いします。

;; 単語を kill-ring に save する
(defun word-kill-ring-save (count-word)
  "Save the word under cursor into kill-ring, but don't kill it."
  (interactive "p")
  (save-excursion
    (forward-word 1)
    (backward-word 1)
    (copy-region-as-kill
     (point)
     (progn (forward-word count-word) (point)))))

--
浦 岳史 (うら たけふみ) 【メイルアドレスをURL表記しよう運動】
    mailto:hage@xxxxxxxxxxxxxxxxx