Mercurial > hg > xemacs-beta

comparison lisp/gnuserv.el @ 434:9d177e8d4150 r21-2-25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-25
author cvs
date Mon, 13 Aug 2007 11:30:53 +0200
parents 3ecd8885ac67
children e7ef97881643
comparison
equal deleted inserted replaced
433:892ca416f0fb 434:9d177e8d4150
346 (condition-case oops 346 (condition-case oops
347 (eval (car (read-from-string gnuserv-string (cdr header)))) 347 (eval (car (read-from-string gnuserv-string (cdr header))))
348 ;; In case of an error, write the description to the 348 ;; In case of an error, write the description to the
349 ;; client, and then signal it. 349 ;; client, and then signal it.
350 (error (setq gnuserv-string "") 350 (error (setq gnuserv-string "")
351 (gnuserv-write-to-client gnuserv-current-client oops) 351 (when gnuserv-current-client
352 (gnuserv-write-to-client gnuserv-current-client oops))
352 (setq gnuserv-current-client nil) 353 (setq gnuserv-current-client nil)
353 (signal (car oops) (cdr oops))) 354 (signal (car oops) (cdr oops)))
354 (quit (setq gnuserv-string "") 355 (quit (setq gnuserv-string "")
355 (gnuserv-write-to-client gnuserv-current-client oops) 356 (when gnuserv-current-client
357 (gnuserv-write-to-client gnuserv-current-client oops))
356 (setq gnuserv-current-client nil) 358 (setq gnuserv-current-client nil)
357 (signal 'quit nil))) 359 (signal 'quit nil)))
358 (setq gnuserv-string ""))) 360 (setq gnuserv-string "")))
359 (t 361 (t
360 (error "%s: invalid response from gnuserv" gnuserv-string) 362 (error "%s: invalid response from gnuserv" gnuserv-string)