_ [tDiary] フィードバックプラグイン

そのうち忘れ去られそうな「へぇ」プラグインを、今のうちに改良して、どこかで見たことがあるような「フィードバック」プラグインを作ってみました。→feedback.rb

従来の「へぇ」カウントはちゃんと引き継がれるのがポイント。

 

_ XEmacs を使う理由...

私が FSF Emacs ではなく XEmacs を使っている唯一の理由は、XEmacs にある backward-other-window (要するに other-window = C-x o の逆) が手放せないからです。ちなみに XEmacs でのソースはこんな感じ。

(defun backward-other-window (count &optional which-frames which-devices)
  "Select the COUNT'th different window on this frame, going backwards.
This is just like calling `other-window' with COUNT negated."
  (interactive "p")
  (other-window (- count) which-frames which-devices))

どこかにこれの FSF Emacs で使える実装はないものでしょうか？

[追記] いろいろコメントありがとうございました。yoichi さんのおっしゃる方法で十分でして、simm さんのコードをいただくことにします。

(defun backward-other-window (arg &optional all-frames)
  "Select AEG'th different window on this frame, going backwards.
This is just like calling `other-window' with ARG negated."
  (interactive "p")
  (other-window (- arg) all-frames))

ちなみに私の好みのキーバインディングは C-xO です。

(global-set-key "\C-xO" 'backward-other-window)