* git and possibly 6.30 xemacs bug
@ 2009-09-01 14:30 Wes Hardaker
2009-09-02 9:33 ` Carsten Dominik
0 siblings, 1 reply; 2+ messages in thread
From: Wes Hardaker @ 2009-09-01 14:30 UTC (permalink / raw)
To: emacs-orgmode
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 ______________/
\__________________/
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: git and possibly 6.30 xemacs bug
2009-09-01 14:30 git and possibly 6.30 xemacs bug Wes Hardaker
@ 2009-09-02 9:33 ` Carsten Dominik
0 siblings, 0 replies; 2+ messages in thread
From: Carsten Dominik @ 2009-09-02 9:33 UTC (permalink / raw)
To: Wes Hardaker; +Cc: emacs-orgmode
Hi Wes,
I have included this fix into Org as well, thanks.
- Carsten
On Sep 1, 2009, at 4:30 PM, Wes Hardaker wrote:
>
> 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 ______________/
> \__________________/
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2009-09-02 9:34 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2009-09-01 14:30 git and possibly 6.30 xemacs bug Wes Hardaker
2009-09-02 9:33 ` Carsten Dominik
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).