From 572c98a0b4281884c9727bdba5ce5d8c4f228c1e Mon Sep 17 00:00:00 2001 From: Scott Jaderholm Date: Fri, 4 Nov 2011 22:14:08 -0400 Subject: [PATCH] Add custom variable for toggling whether displaying appointment window raises frame. --- lisp/calendar/appt.el | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index c44eb6e..b720356 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -166,6 +166,10 @@ Only relevant if reminders are being displayed in a window." :type 'function :group 'appt) +(defcustom appt-disp-window-raises-frame t + "Non-nil raises the frame when displaying appointment window." + :type 'boolean + :group 'appt) ;;; Internal variables below this point. @@ -472,7 +476,8 @@ separate appointment." (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t)) (set-buffer-modified-p nil) (setq buffer-read-only t) - (raise-frame (selected-frame)) + (when appt-disp-window-raises-frame + (raise-frame (selected-frame))) (select-window this-window))) (defun appt-delete-window () -- 1.7.0.4