Mercurial > hg > xemacs-beta

comparison lisp/gnuserv.el @ 359:8e84bee8ddd0 r21-1-9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-9
author cvs
date Mon, 13 Aug 2007 10:57:55 +0200
parents 57709be46d1b
children a4f53d9b3154
comparison
equal deleted inserted replaced
358:fed6e0f6a03a 359:8e84bee8ddd0
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)