From 9626b9283927d2233e4e4eeb6c7bbbd95ad58641 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 25 Oct 1999 12:22:14 +0000 Subject: [PATCH] (auto-raise-mode): When enabling the mode, immediately raise the selected frame. --- lisp/ChangeLog | 5 +++++ lisp/frame.el | 2 ++ 2 files changed, 7 insertions(+) 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 + + * frame.el (auto-raise-mode): When enabling the mode, + immediately raise the selected frame. + 1999-10-24 Stephen Eglen * 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))))) -- 2.39.5