Mercurial > hg > xemacs-beta

comparison lisp/gnuserv.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 6330739388db
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
268 268
269 ;; Sample gnuserv-frame functions 269 ;; Sample gnuserv-frame functions
270 270
271 (defun gnuserv-main-frame-function (type) 271 (defun gnuserv-main-frame-function (type)
272 "Return a sensible value for the main Emacs frame." 272 "Return a sensible value for the main Emacs frame."
273 (if (eq type 'x) 273 (if (or (eq type 'x)
274 (eq type 'mswindows))
274 (car (frame-list)) 275 (car (frame-list))
275 nil)) 276 nil))
276 277
277 (defun gnuserv-visible-frame-function (type) 278 (defun gnuserv-visible-frame-function (type)
278 "Return a frame if there is a frame that is truly visible, nil otherwise. 279 "Return a frame if there is a frame that is truly visible, nil otherwise.
279 This is meant in the X sense, so it will not return frames that are on another 280 This is meant in the X sense, so it will not return frames that are on another
280 visual screen. Totally visible frames are preferred. If none found, return nil." 281 visual screen. Totally visible frames are preferred. If none found, return nil."
281 (if (eq type 'x) 282 (if (or (eq type 'x)
283 (eq type 'mswindows))
282 (cond ((car (filtered-frame-list 'frame-totally-visible-p 284 (cond ((car (filtered-frame-list 'frame-totally-visible-p
283 (selected-device)))) 285 (selected-device))))
284 ((car (filtered-frame-list (lambda (frame) 286 ((car (filtered-frame-list (lambda (frame)
285 ;; eq t as in not 'hidden 287 ;; eq t as in not 'hidden
286 (eq t (frame-visible-p frame))) 288 (eq t (frame-visible-p frame)))
422 (frame-device dest-frame)) 424 (frame-device dest-frame))
423 ((null dest-frame) 425 ((null dest-frame)
424 (case (car type) 426 (case (car type)
425 (tty (apply 'make-tty-device (cdr type))) 427 (tty (apply 'make-tty-device (cdr type)))
426 (x (make-x-device (cadr type))) 428 (x (make-x-device (cadr type)))
429 (mswindows (make-mswindows-device))
427 (t (error "Invalid device type")))) 430 (t (error "Invalid device type"))))
428 (t 431 (t
429 (selected-device)))) 432 (selected-device))))
430 (frame (cond ((frame-live-p dest-frame) 433 (frame (cond ((frame-live-p dest-frame)
431 dest-frame) 434 dest-frame)