changeset 26166:312839b8086d

(auto-raise-mode): When enabling the mode, immediately raise the selected frame.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 25 Oct 1999 12:21:21 +0000
parents cdd1c350aae9
children 02e32f457c8a
files lisp/frame.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)))))