Re: OS X: raise-frame at reopen event

[YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>]

>>>>> On Thu, 09 Aug 2007 15:35:08 -0700, Seiji Zenitani <zenitani@mac.com> 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
				mituharu@math.s.chiba-u.ac.jp

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)