# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 812936403 0
# Node ID 731ef06c56772041314d5ee57d029c3eb05d353a
# Parent  e44b06fc718dc6f33f97427c3d0d3b51950c4d08
(appt-disp-window): Call raise-frame.

diff -r e44b06fc718d -r 731ef06c5677 lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Thu Oct 05 23:15:11 1995 +0000
+++ b/lisp/calendar/appt.el	Thu Oct 05 23:40:03 1995 +0000
@@ -377,6 +377,7 @@
     (insert-string appt-msg)
     (shrink-window-if-larger-than-buffer (get-buffer-window appt-disp-buf t))
     (set-buffer-modified-p nil)
+    (raise-frame (selected-frame))
     (select-window this-window)
     (if appt-audible
 	(beep 1))))