From: morioka Date: Thu, 27 Mar 1997 22:07:50 +0000 (+0000) Subject: (mime-echo-window-height): New variable. X-Git-Tag: Hokutetsu-Ishikawa-new~27 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fa9c2940ef047b50873dcc2451c4b25ec86c314c;p=elisp%2Fsemi.git (mime-echo-window-height): New variable. --- diff --git a/mime-play.el b/mime-play.el index 7b943d2..3cefa56 100644 --- a/mime-play.el +++ b/mime-play.el @@ -5,7 +5,7 @@ ;; Author: MORIOKA Tomohiko ;; Created: 1995/9/26 (separated from tm-view.el) ;; Renamed: 1997/2/21 from tm-play.el -;; Version: $Id: mime-play.el,v 0.33 1997-03-27 20:56:38 morioka Exp $ +;; Version: $Id: mime-play.el,v 0.34 1997-03-27 22:07:50 morioka Exp $ ;; Keywords: MIME, multimedia, mail, news ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces). @@ -169,6 +169,17 @@ If MODE is specified, play as it. Default MODE is \"play\"." (defvar mime-echo-window-is-shared-with-bbdb t "*If non-nil, mime-echo window is shared with BBDB window.") +(defvar mime-echo-window-height + (function + (lambda () + (/ (window-height) 5) + )) + "*Size of mime-echo window. +It allows function or integer. If it is function, +`mime-show-echo-buffer' calls it to get height of mime-echo window. +Otherwise `mime-show-echo-buffer' uses it as height of mime-echo +window.") + (defun mime-show-echo-buffer (&rest forms) "Show mime-echo buffer to display MIME-playing information." (get-buffer-create mime-echo-buffer-name) @@ -182,7 +193,12 @@ If MODE is specified, play as it. Default MODE is \"play\"." ) (set-window-buffer win mime-echo-buffer-name) (select-window (get-buffer-window mime-view-buffer)) - (setq win (split-window-vertically (/ (* (window-height) 3) 4))) + (setq win (split-window-vertically + (- (window-height) + (if (functionp mime-echo-window-height) + (funcall mime-echo-window-height) + mime-echo-window-height) + ))) (set-window-buffer win mime-echo-buffer-name) )) (select-window win)