diff options
author | Jim Blandy <[email protected]> | 1992-07-15 00:32:19 +0000 |
---|---|---|
committer | Jim Blandy <[email protected]> | 1992-07-15 00:32:19 +0000 |
commit | dc6d96816db5f4f7b484e5e394501e5724c2d02f (patch) | |
tree | bcc0d5ce3ede2cf3b3da4d8b90c47723bdd82f86 /lisp/calendar/appt.el | |
parent | e6dd9901bb92e21908bb8c3abf8cdfdcc54a6dd7 (diff) |
*** empty log message ***
Diffstat (limited to 'lisp/calendar/appt.el')
-rw-r--r-- | lisp/calendar/appt.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 2376d76a86..3f2778be60 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -291,7 +291,7 @@ Therefore, you need to have `(display-time)' in your .emacs file." ;; Make sure we're not in the minibuffer ;; before splitting the window. - (if (= (screen-height) + (if (= (frame-height) (nth 3 (window-edges (selected-window)))) nil (appt-select-lowest-window) @@ -313,7 +313,7 @@ Therefore, you need to have `(display-time)' in your .emacs file." (beep 1)) (kill-buffer appt-disp-buf)))) -;; Select the lowest window on the screen. +;; Select the lowest window on the frame. (defun appt-select-lowest-window () (setq lowest-window (selected-window)) (let* ((bottom-edge (car (cdr (cdr (cdr (window-edges)))))) |