unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
From: Joakim Hove <hove@bccs.no>
Subject: Re: resize remaining buffer after kill buffer
Date: Mon, 11 Aug 2003 14:34:33 +0200	[thread overview]
Message-ID: <4yd6fc8jae.fsf@skjellgran.ii.uib.no> (raw)
In-Reply-To: ufzk8sjrp.fsf@gmx.net



Homunkulus@gmx.net (Torsten Müller) writes:


> Is there any simple way to enlarge one of the remaining buffers by the
> size of the just killed buffer?

Hello,

I don't know if this is what you want but:

(defun kill-buffer-and-window (BUFFER)
  "Kills a buffer and the accompanying window. If the buffer is not
displayed in the active frame nothing happens to the window 
configuration"
  (interactive "bKill buffer:")
  (let ((window))
    (if (> (count-windows) 1)
	(setq window (get-buffer-window BUFFER)))
    (kill-buffer BUFFER)
    (if window
	(delete-window window))))
    
does something alike.

*Warning* After writing this function I discovered that there already
exists a built in function with the same name, however It seems the
built function does not allow you to select which buffer to kill. In
my implementation nothing happens if you kill a buffer which does not
occupy a window in the current frame.

Joakim

-- 
  /--------------------------------------------------------------------\
 / Joakim Hove  / hove@bccs.no  /  (55 5) 84076       |                 \
 | Unifob AS, Avdeling for Beregningsvitenskap (BCCS) | Stabburveien 18 |
 | CMU                                                | 5231 Paradis    |
 \ Thormøhlensgt.55, 5020 Bergen.                     | 55 91 28 18     /
  \--------------------------------------------------------------------/

  reply	other threads:[~2003-08-11 12:34 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2003-08-11  8:03 resize remaining buffer after kill buffer Torsten Müller
2003-08-11 12:34 ` Joakim Hove [this message]
2003-08-11 12:43   ` Torsten Müller
2003-08-11 13:31     ` Torsten Müller
2003-08-11 13:38       ` Joakim Hove
2003-08-11 15:04 ` Stefan Monnier
2003-08-12 18:36 ` Kai Großjohann

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=4yd6fc8jae.fsf@skjellgran.ii.uib.no \
    --to=hove@bccs.no \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).