(auto-raise-mode): When enabling the mode,

immediately raise the selected frame.

2 files changed, 7 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e1c24976d29..56d64e20af7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-10-25  Richard M. Stallman  <rms@caffeine.ai.mit.edu>
+
+        * frame.el (auto-raise-mode): When enabling the mode,
+        immediately raise the selected frame.
+        
 1999-10-24  Stephen Eglen  <stephen@gnu.org>
 
         * progmodes/octave-mod.el (octave-auto-indent): Remove :version so
diff --git a/lisp/frame.el b/lisp/frame.el
index 2116291bb0b..e196218164f 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -722,6 +722,8 @@ that is beyond the control of Emacs and this command has no effect on it."
       (setq arg
             (if (cdr (assq 'auto-raise (frame-parameters (selected-frame))))
                 -1 1)))
+  (if (> arg 0)
+      (raise-frame (selected-frame)))
   (modify-frame-parameters (selected-frame)
                            (list (cons 'auto-raise (> arg 0)))))