forked from mirrors/org-mode
org-compat: Check for w32-focus-frame
* lisp/org-compat.el (org-select-frame-set-input-focus): Check for w32-focus-frame to quiet byte compiler. Don't use declare-function because this function was marked obsolete in Emacs 23.1 (44fe0f6).
This commit is contained in:
parent
0e0963acbf
commit
3b8fc502b9
|
@ -392,7 +392,8 @@ Pass BUFFER to the XEmacs version of `move-to-column'."
|
||||||
(select-frame frame)
|
(select-frame frame)
|
||||||
(cond ((memq window-system '(x ns mac))
|
(cond ((memq window-system '(x ns mac))
|
||||||
(x-focus-frame frame))
|
(x-focus-frame frame))
|
||||||
((eq window-system 'w32)
|
((and (eq window-system 'w32)
|
||||||
|
(fboundp 'w32-focus-frame))
|
||||||
(w32-focus-frame frame)))
|
(w32-focus-frame frame)))
|
||||||
(when focus-follows-mouse
|
(when focus-follows-mouse
|
||||||
(set-mouse-position frame (1- (frame-width frame)) 0)))))
|
(set-mouse-position frame (1- (frame-width frame)) 0)))))
|
||||||
|
|
Loading…
Reference in New Issue