# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 940854081 0
# Node ID 312839b8086d34515adc8dbcc1de065628734ca9
# Parent  cdd1c350aae952e962a9ac3f6e4ff9e7862be19d
(auto-raise-mode): When enabling the mode,
immediately raise the selected frame.

diff -r cdd1c350aae9 -r 312839b8086d lisp/frame.el
--- a/lisp/frame.el	Mon Oct 25 11:06:44 1999 +0000
+++ b/lisp/frame.el	Mon Oct 25 12:21:21 1999 +0000
@@ -722,6 +722,8 @@
       (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)))))