Re: OS X: raise-frame at reopen event

[Seiji Zenitani]

Thank you for your quick response.
Is it possible to install the change to EMACS_22_BASE, too?
I believe the change is harmless.

Seiji Zenitani
address@hidden

 
On Friday, August 10, 2007, at 06:18AM, "YAMAMOTO Mitsuharu" <address@hidden> 
wrote:
>>>>>> 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)
>
>