Mercurial > hg > xemacs-beta

comparison lisp/packages/gnuserv.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents c53a95d3c46d
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
459 (delq buffer client) 459 (delq buffer client)
460 (if (cdr client) ;pending buffers? 460 (if (cdr client) ;pending buffers?
461 nil ;yep 461 nil ;yep
462 (server-write-to-client (car client) nil) ;nope, tell client 462 (server-write-to-client (car client) nil) ;nope, tell client
463 (setq server-clients (delq client server-clients)))) 463 (setq server-clients (delq client server-clients))))
464 (setq old-clients (cdr old-clients)))))))) 464 (setq old-clients (cdr old-clients)))
465 t)))))
465 466
466 467
467 ;; Ask before killing a server buffer. 468 ;; Ask before killing a server buffer.
468 ;; It was suggested to release its client instead, 469 ;; It was suggested to release its client instead,
469 ;; but I think that is dangerous--the client would proceed 470 ;; but I think that is dangerous--the client would proceed