Mercurial > hg > xemacs-beta

comparison lisp/gnuserv.el @ 5473:ac37a5f7e5be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 308d34e9f07d f00192e1cd49
children cc6f0266bc36
comparison
equal deleted inserted replaced
5472:e79980ee5efe 5473:ac37a5f7e5be
464 :device device 464 :device device
465 :frame new-frame))) 465 :frame new-frame)))
466 (select-frame frame) 466 (select-frame frame)
467 (setq gnuserv-current-client nil) 467 (setq gnuserv-current-client nil)
468 ;; If the device was created by this client, push it to the list. 468 ;; If the device was created by this client, push it to the list.
469 (and (/= old-device-num (length (device-list))) 469 (and (not (eql old-device-num (length (device-list))))
470 (push device gnuserv-devices)) 470 (push device gnuserv-devices))
471 (and (frame-iconified-p frame) 471 (and (frame-iconified-p frame)
472 (deiconify-frame frame)) 472 (deiconify-frame frame))
473 ;; Visit all the listed files. 473 ;; Visit all the listed files.
474 (while list 474 (while list