Mercurial > hg > xemacs-beta

comparison lisp/gnuserv.el @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents e7ef97881643
children a00780ef853d
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
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 (or (eq type 'x) 273 (if (or (eq type 'x)
274 (eq type 'gtk)
274 (eq type 'mswindows)) 275 (eq type 'mswindows))
275 (car (frame-list)) 276 (car (frame-list))
276 nil)) 277 nil))
277 278
278 (defun gnuserv-visible-frame-function (type) 279 (defun gnuserv-visible-frame-function (type)
279 "Return a frame if there is a frame that is truly visible, nil otherwise. 280 "Return a frame if there is a frame that is truly visible, nil otherwise.
280 This is meant in the X sense, so it will not return frames that are on another 281 This is meant in the X sense, so it will not return frames that are on another
281 visual screen. Totally visible frames are preferred. If none found, return nil." 282 visual screen. Totally visible frames are preferred. If none found, return nil."
282 (if (or (eq type 'x) 283 (if (or (eq type 'x)
284 (eq type 'gtk)
283 (eq type 'mswindows)) 285 (eq type 'mswindows))
284 (cond ((car (filtered-frame-list 'frame-totally-visible-p 286 (cond ((car (filtered-frame-list 'frame-totally-visible-p
285 (selected-device)))) 287 (selected-device))))
286 ((car (filtered-frame-list (lambda (frame) 288 ((car (filtered-frame-list (lambda (frame)
287 ;; eq t as in not 'hidden 289 ;; eq t as in not 'hidden
426 (device (cond ((frame-live-p dest-frame) 428 (device (cond ((frame-live-p dest-frame)
427 (frame-device dest-frame)) 429 (frame-device dest-frame))
428 ((null dest-frame) 430 ((null dest-frame)
429 (case (car type) 431 (case (car type)
430 (tty (apply 'make-tty-device (cdr type))) 432 (tty (apply 'make-tty-device (cdr type)))
433 (gtk (make-gtk-device))
431 (x (make-x-device (cadr type))) 434 (x (make-x-device (cadr type)))
432 (mswindows (make-mswindows-device)) 435 (mswindows (make-mswindows-device))
433 (t (error "Invalid device type")))) 436 (t (error "Invalid device type"))))
434 (t 437 (t
435 (selected-device)))) 438 (selected-device))))