Re: select-frame-set-input-focus operates on wrong frame

[Óscar Fuentes]

Óscar Fuentes <ofv@wanadoo.es> writes:

> I have a frame named "pdf" to view files opened via emacsclient. This
> code shows those files on the "pdf" frame (if it exists) when
> `emacsclient -n somefile' is invoked:
>
>
> (defun ofv-display-buffer-pop-up-frame (buffer &rest alist)
>   (unless (catch 'out
>           (dolist (frame (frame-list))
>             (when (and (equal (frame-parameter frame 'display)
>                               (frame-parameter nil 'display))
>                        (string= "pdf" (frame-parameter frame 'name)))
>               (with-selected-frame frame
>                 (select-frame-set-input-focus frame)
>                 (display-buffer-full-frame buffer '())
>                 (throw 'out t)))))
>     (display-buffer-full-frame buffer alist)))
>
> (setq server-window 'ofv-display-buffer-pop-up-frame)
>
>
> This works except select-frame-set-input-focus raises and sets focus to
> the frame that had the focus before emacsclient was invoked.
>
> I guess that the code that processes the emacsclient request in Emacs
> sets the focus after the function contained in server-window is
> invoked. How can I avoid this?

The problem consists on the semantics of with-selected-frame: it
restores the selected frame, so changing focus to the other frame inside
with-selected-frame is futile.

This version of the code works:

(defun ofv-display-buffer-pop-up-frame (buffer &rest alist)
  (let ((f (cl-find-if (lambda (frame)
                         (and (equal (frame-parameter frame 'display)
                                     (frame-parameter nil 'display))
                              (string= "pdf" (frame-parameter frame 'name))))
                       (frame-list))))
    (when f
      (select-frame-set-input-focus f))
    (display-buffer-full-frame buffer '())))

(setq server-window 'ofv-display-buffer-pop-up-frame)