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

immediately raise the selected frame.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e1c24976d29e91042db0694ad2b232d53be15672..56d64e20af7677a81dcd6907cf98e2ed17a27b5b 100644 (file)
--- 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 2116291bb0b2fa979088525917339697fc8557bb..e196218164fbe702814ece36e25ff604c9500b86 100644 (file)
--- 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)))))