emacs-orgmode
[Top][All Lists]
Advanced

[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 ______________/
                         \__________________/




reply via email to

[Prev in Thread] Current Thread [Next in Thread]