[Date Prev][Date Next][Thread Prev][][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)))