bug#1061: pop-up-frames does not work on a tty

[martin rudalics]

The previous patch was probably too drastic.  Let's try
the attached one.

martin

*** help.el.~1.342.~    2008-08-14 07:46:20.718750000 +0200
--- help.el     2008-10-01 15:19:23.250000000 +0200
***************
*** 1056,1062 ****
         "Type \"q\" to quit") window))
       ((= number-of-windows 1)
        ;; The help window is alone on a frame and not the selected
!       ;; window, could be the `pop-up-frames' t case.
        (help-window-display-message
         (cond
        (keep-frame "Type \"q\" to delete this window")
--- 1056,1063 ----
         "Type \"q\" to quit") window))
       ((= number-of-windows 1)
        ;; The help window is alone on a frame and not the selected
!       ;; window, probably the `pop-up-frames' t case.
!       (select-frame-set-input-focus (window-frame window))
        (help-window-display-message
         (cond
        (keep-frame "Type \"q\" to delete this window")