Mercurial > emacs

comparison lisp/window.el @ 49597:e88404e8f2cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 12:29:42 +0000
parents 7262fd90146a
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
49596:b06535145619 49597:e88404e8f2cf
523 (let ((mini-window (minibuffer-window frame))) 523 (let ((mini-window (minibuffer-window frame)))
524 (or (null mini-window) 524 (or (null mini-window)
525 (not (eq frame (window-frame mini-window))) 525 (not (eq frame (window-frame mini-window)))
526 (< (nth 3 edges) 526 (< (nth 3 edges)
527 (nth 1 (window-edges mini-window))) 527 (nth 1 (window-edges mini-window)))
528 (> (nth 1 edges) 528 (> (nth 1 edges)
529 (frame-parameter frame 'menu-bar-lines)))))) 529 (frame-parameter frame 'menu-bar-lines))))))
530 (fit-window-to-buffer window (window-height window))))) 530 (fit-window-to-buffer window (window-height window)))))
531 531
532 (defun kill-buffer-and-window () 532 (defun kill-buffer-and-window ()
533 "Kill the current buffer and delete the selected window." 533 "Kill the current buffer and delete the selected window."