トップ 差分 一覧 ソース 検索 ヘルプ RSS ログイン

Window

Table of Contents

 ウィンドウ分割時に,片方のウィンドウには他のバッファを表示

xyzzyの使い方がわからぬやし 励ましあえ その4 842 さんのを参考に。

 (defun my-split-window (&optional arg vertical)
   (interactive)
   (split-window arg vertical)
   (switch-to-buffer-other-window (other-buffer)))
 
 (defun my-split-window-vertically (&optional arg)
   (interactive)
   (my-split-window arg t))
 
 (define-key ctl-x-map #\2 'my-split-window)
 (define-key ctl-x-map #\5 'my-split-window-vertically)

 上下にウィンドウを分割または他のウインドウを閉じる

ウィンドウが分割されていない場合は上下に分割し,分割されている場合は他のウィンドウを閉じる。xyzzyの使い方がわからぬやし 励ましあえ その4(704 さん)より。

(defun toggle-split-window ()
  (interactive)
  (if (= (count-windows) 1)
      (split-window)
    (delete-other-windows)))

 他ウィンドウを高速スクロール

C-M-Down で他ウィンドウを高速上スクロール、 C-M-Up で他ウィンドウを高速下スクロール。 [1][2]

 ;;; 他ウィンドウを高速上スクロール
 (defun fast-scroll-up-other-window (&optional (n 2))
   (interactive "p")
   (when (> (count-windows) 1)
     (other-window 1)
     (scroll-window n)
     (other-window -1)))
 (global-set-key #\C-M-Down 'fast-scroll-up-other-window)
 ;;; 他ウィンドウを高速下スクロール
 (defun fast-scroll-down-other-window (&optional (n 2))
   (interactive "p")
   (fast-scroll-up-other-window (- n)))
 (global-set-key #\C-M-Up 'fast-scroll-down-other-window)
  • [1]ウィンドウが分割されていない場合にエラーが発生するのを修正。
  • [2]プレフィックスアーギュメントを活用できていなかったのを修正。

最終更新時間:2004年09月15日 23時45分41秒 GMT