tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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:
Kyle Meyer 2016-05-15 13:53:14 -04:00
parent 0e0963acbf
commit 3b8fc502b9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org-compat.el
View File

@ -392,7 +392,8 @@ Pass BUFFER to the XEmacs version of `move-to-column'."
(select-frame frame)
(cond ((memq window-system '(x ns mac))
(x-focus-frame frame))
((eq window-system 'w32)
((and (eq window-system 'w32)
(fboundp 'w32-focus-frame))
(w32-focus-frame frame)))
(when focus-follows-mouse
(set-mouse-position frame (1- (frame-width frame)) 0)))))