Mercurial > hg > xemacs-beta

comparison lisp/gnuserv.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
438 new-frame) 438 new-frame)
439 (t (selected-frame)))) 439 (t (selected-frame))))
440 (client (make-gnuclient :id gnuserv-current-client 440 (client (make-gnuclient :id gnuserv-current-client
441 :device device 441 :device device
442 :frame new-frame))) 442 :frame new-frame)))
443 (select-frame frame)
443 (setq gnuserv-current-client nil) 444 (setq gnuserv-current-client nil)
444 ;; If the device was created by this client, push it to the list. 445 ;; If the device was created by this client, push it to the list.
445 (and (/= old-device-num (length (device-list))) 446 (and (/= old-device-num (length (device-list)))
446 (push device gnuserv-devices)) 447 (push device gnuserv-devices))
447 (and (frame-iconified-p frame) 448 (and (frame-iconified-p frame)