Skip to content
Browse files

smart-move-frame-inside-screen: do not rely on window-system frame pa…

…rameter

This parameter is only set for the first frame.
  • Loading branch information...
1 parent a7252e4 commit 71a56218eb1a40e58f269a31c127ed832696990c @davidswelt committed Jan 13, 2012
Showing with 4 additions and 3 deletions.
  1. +1 −0 aquamacs/doc/latex/changelog.tex
  2. +3 −3 aquamacs/src/site-lisp/smart-frame-positioning.el
View
1 aquamacs/doc/latex/changelog.tex
@@ -8,6 +8,7 @@ \subsection{Changes--- dev}
Suggested by Juan Jose Garcia Ripoll.
\item Text search (isearch) now works better when using one of the Emulate-Mac-Keyboard-Modes.
Reported by Thomas Strathmann.
+\item Frames are now reliably moved inside the current display again when entering the minibuffer (and at other times).
\end{itemize}
\subsection{Changes--- 2.4}
View
6 aquamacs/src/site-lisp/smart-frame-positioning.el
@@ -722,7 +722,7 @@ Returns nil of parms is nil."
; (setq frame (selected-frame))
; (smart-move-minibuffer-inside-screen)
(defun smart-move-minibuffer-inside-screen (&optional frame)
- (when (and (frame-parameter (or frame (selected-frame)) 'window-system)
+ (when (and (display-graphic-p frame)
(not (frame-parameter frame 'fullscreen)))
(unless
(smart-minibuffer-inside-screen-p frame)
@@ -740,7 +740,7 @@ boundaries.
The function will fail to do its job when the Dock is not displayed
on the main screen, i.e. where the menu is."
(interactive)
- (when (frame-parameter (or frame (selected-frame)) 'window-system)
+ (when (display-graphic-p frame)
(let* ((frame (or frame (selected-frame)))
;; on some systems, we can retrieve the available pixel width with
;; non-standard methods.
@@ -838,4 +838,4 @@ on the main screen, i.e. where the menu is."
(smart-move-frame-inside-screen nil t))))
-(provide 'smart-frame-positioning)
+(provide 'smart-frame-positioning)

0 comments on commit 71a5621

Please sign in to comment.
Something went wrong with that request. Please try again.