On Thu, 09 Aug 2007 15:35:08 -0700, Seiji Zenitani
<address@hidden> said:
How about modifying 'ignore to 'raise-frame in mac-win.el?
`raise-frame' may make an invisible frame visible. I've installed
the
following change to the trunk.
YAMAMOTO Mitsuharu
address@hidden
Index: lisp/term/mac-win.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/mac-win.el,v
retrieving revision 1.91
diff -c -p -r1.91 mac-win.el
*** lisp/term/mac-win.el 26 Jul 2007 05:27:30 -0000 1.91
--- lisp/term/mac-win.el 10 Aug 2007 10:09:17 -0000
*************** in `selection-converter-alist', which se
*** 1710,1715 ****
--- 1710,1728 ----
(setq modifiers (cons (car modifier-mask) modifiers)))))
modifiers))
+ (defun mac-ae-reopen-application (event)
+ "Show some frame in response to the Apple event EVENT.
+ The frame to be shown is chosen from visible or iconified frames
+ if possible. If there's no such frame, a new frame is created."
+ (interactive "e")
+ (unless (frame-visible-p (selected-frame))
+ (let ((frame (or (car (visible-frame-list))
+ (car (filtered-frame-list 'frame-visible-p)))))
+ (if frame
+ (select-frame frame)
+ (switch-to-buffer-other-frame "*scratch*"))))
+ (select-frame-set-input-focus (selected-frame)))
+
(defun mac-ae-open-documents (event)
"Open the documents specified by the Apple event EVENT."
(interactive "e")
*************** Currently the `mailto' scheme is support
*** 1766,1774 ****
(define-key mac-apple-event-map [core-event open-application] 0)
;; Received when a dock or application icon is clicked and Emacs is
! ;; already running. Simply ignored. Another idea is to make a new
! ;; frame if all frames are invisible.
! (define-key mac-apple-event-map [core-event reopen-application]
'ignore)
(define-key mac-apple-event-map [core-event open-documents]
'mac-ae-open-documents)
--- 1779,1787 ----
(define-key mac-apple-event-map [core-event open-application] 0)
;; Received when a dock or application icon is clicked and Emacs is
! ;; already running.
! (define-key mac-apple-event-map [core-event reopen-application]
! 'mac-ae-reopen-application)
(define-key mac-apple-event-map [core-event open-documents]
'mac-ae-open-documents)