[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] git and possibly 6.30 xemacs bug
From: |
Wes Hardaker |
Subject: |
[Orgmode] git and possibly 6.30 xemacs bug |
Date: |
Tue, 01 Sep 2009 07:30:41 -0700 |
User-agent: |
Gnus/5.110011 (No Gnus v0.11) XEmacs/21.4.21 (linux, no MULE) |
The select-frame-set-input-focus function doesn't exist in xemacs, which
was recently added in org-eval-in-calendar. This seems to be a common
problem as gnus defines this to get around it:
(defun gnus-select-frame-set-input-focus (frame)
"Select FRAME, raise it, and set input focus, if possible."
(cond ((featurep 'xemacs)
(if (fboundp 'select-frame-set-input-focus)
(select-frame-set-input-focus frame)
(raise-frame frame)
(select-frame frame)
(focus-frame frame)))
;; `select-frame-set-input-focus' defined in Emacs 21 will not
;; set the input focus.
((>= emacs-major-version 22)
(select-frame-set-input-focus frame))
(t
(raise-frame frame)
(select-frame frame)
(cond ((memq window-system '(x ns mac))
(x-focus-frame frame))
((eq window-system 'w32)
(w32-focus-frame frame)))
(when focus-follows-mouse
(set-mouse-position frame (1- (frame-width frame)) 0)))))
--
\ Wes Hardaker http://pontifications.hardakers.net /
\_____ "In the bathtub of history the truth is harder to hold than ________/
\_______ the soap, and much more difficult to find." _______/
\_________ -- Terry Pratchett ______________/
\__________________/
- [Orgmode] git and possibly 6.30 xemacs bug,
Wes Hardaker <=