From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Rares Vernica Newsgroups: gmane.emacs.help Subject: Re: list-buffers - winwod-height Date: Mon, 03 Apr 2006 18:35:17 -0700 Organization: University of California, Irvine Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 7bit X-Trace: sea.gmane.org 1144114873 18176 80.91.229.2 (4 Apr 2006 01:41:13 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Tue, 4 Apr 2006 01:41:13 +0000 (UTC) Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Tue Apr 04 03:41:12 2006 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FQaXb-00026J-1a for geh-help-gnu-emacs@m.gmane.org; Tue, 04 Apr 2006 03:41:07 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FQaXa-0004KC-IM for geh-help-gnu-emacs@m.gmane.org; Mon, 03 Apr 2006 21:41:06 -0400 Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!newsfeed.news.ucla.edu!news.usc.edu!news.service.uci.edu!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 30 Original-NNTP-Posting-Host: cse104g.ics.uci.edu User-Agent: Thunderbird 1.5 (Windows/20051201) In-Reply-To: Original-Xref: shelby.stanford.edu gnu.emacs.help:138529 Original-To: help-gnu-emacs@gnu.org X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:34147 Archived-At: Thanks a lot, Ray Katsumi Yamaoka wrote: >>>>>> In Rares Vernica wrote: > >> How can I set the default height of the list-buffers window? > > There seems to be no way other than using your own command. > How about this? > > --8<---------------cut here---------------start------------->8--- > (setq my-list-buffers-window-height 16) > > (defun my-list-buffers (&optional files-only) > (interactive "P") > (let ((buffer (list-buffers-noselect files-only))) > (display-buffer buffer) > (enlarge-window (max (- (window-height (get-buffer-window buffer)) > my-list-buffers-window-height) > (- window-min-height (window-height)))))) > > (substitute-key-definition 'list-buffers 'my-list-buffers global-map) > --8<---------------cut here---------------end--------------->8--- > > Otherwise, you can use the `special-display-buffer-names' > variable if you'd like to pop up a frame. For example: > > (add-to-list 'special-display-buffer-names > '("*Buffer List*" (height . 16) (width . 80)))