[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: buffers tab
>>>>> In [emacs-w3m : No.02116]
>>>>> ari@mbf.sphere.ne.jp (ARISAWA Akihiro) wrote:
山岡> ところで、XEmacs の buffers tab in gutter area って、frame とい
山岡> う locale の単位で on/off 制御できないでしょうか?
有沢さん> `set-gutter-element-visible-p' でどうでしょうか。
(set-gutter-element-visible-p default-gutter-visible-p 'buffers-tab
nil (selected-frame))
有沢さん> とすると、selected-frame のみ Gutter が消えました。
ありゃ、意外に簡単にできるんですね。どうもありがとうございます。
実用化はこれから考えますね。
山岡> ぼくは minibuffer を画面の横幅いっぱいの専用 frame にして
有沢さん> ;; 私はこの方法が知りたい。
では、お返しに。:-)
ここに付けたもの以外に、ぼくは minibuffer frame に額縁を付けるな
よ、と window manager (fvwm) に言い聞かせてあります。
ただ、もしかしたら keyboard が minibuffer frame に focus しなく
て困ることがあるかもしれません。特に font-lock + lazy-lock を使
うとやってられません。
;; と言いながら三年 (いや、もっとか) は使っていましたね。^^;;
(if (and (featurep 'xemacs)
(device-on-window-system-p))
(progn
;; Disable buffers tab.
(setq gutter-buffers-tab-enabled nil)
(require 'detached-minibuf)
;; Set a size and a position for the minibuffer frame.
(setq minibuf-frame-height 1
minibuf-frame-width 156
minibuf-frame-pos-y 999
minibuf-frame-pos-x 3)
(make-detached-minibuf)
(add-hook
'window-setup-hook
(byte-compile
(lambda nil
;; Set a size and a position for the main frame.
(set-frame-properties
(selected-frame)
'(minibuffer nil height 55 width 80 left 610 top 28))
;; Remove a horizontal scrollbar from the minibuffer frame.
(set-frame-properties
default-minibuffer-frame
'(horizontal-scrollbar-visible-p nil)))))
;; Make newly created frames have no minibuffer window.
(setq default-frame-plist
(plist-put default-frame-plist 'minibuffer nil))
;; Raise the minibuffer frame if it is selected.
(add-hook 'minibuffer-setup-hook
(byte-compile
(function (lambda nil (raise-frame (selected-frame)))))
t)))