Mercurial > hg > xemacs-beta
diff lisp/gnuserv.el @ 412:697ef44129c6 r21-2-14
Import from CVS: tag r21-2-14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 11:20:41 +0200 |
| parents | 74fd4e045ea6 |
| children | 11054d720c21 |
line wrap: on
line diff
--- a/lisp/gnuserv.el Mon Aug 13 11:19:22 2007 +0200 +++ b/lisp/gnuserv.el Mon Aug 13 11:20:41 2007 +0200 @@ -3,9 +3,9 @@ ;; Version: 3.11 ;; Author: Andy Norman (ange@hplb.hpl.hp.com), originally based on server.el -;; Hrvoje Niksic <hniksic@xemacs.org> +;; Hrvoje Niksic <hniksic@srce.hr> ;; Maintainer: Jan Vroonhof <vroonhof@math.ethz.ch>, -;; Hrvoje Niksic <hniksic@xemacs.org> +;; Hrvoje Niksic <hniksic@srce.hr> ;; Keywords: environment, processes, terminals ;; This file is part of XEmacs. @@ -73,7 +73,7 @@ ;; Jan Vroonhof ;; Customized. ;; -;; Hrvoje Niksic <hniksic@xemacs.org> May/1997 +;; Hrvoje Niksic <hniksic@srce.hr> May/1997 ;; Completely rewritten. Now uses `defstruct' and other CL stuff ;; to define clients cleanly. Many thanks to Dave Gillespie! ;; @@ -348,13 +348,11 @@ ;; In case of an error, write the description to the ;; client, and then signal it. (error (setq gnuserv-string "") - (when gnuserv-current-client - (gnuserv-write-to-client gnuserv-current-client oops)) + (gnuserv-write-to-client gnuserv-current-client oops) (setq gnuserv-current-client nil) (signal (car oops) (cdr oops))) (quit (setq gnuserv-string "") - (when gnuserv-current-client - (gnuserv-write-to-client gnuserv-current-client oops)) + (gnuserv-write-to-client gnuserv-current-client oops) (setq gnuserv-current-client nil) (signal 'quit nil))) (setq gnuserv-string ""))) @@ -442,7 +440,6 @@ (client (make-gnuclient :id gnuserv-current-client :device device :frame new-frame))) - (select-frame frame) (setq gnuserv-current-client nil) ;; If the device was created by this client, push it to the list. (and (/= old-device-num (length (device-list)))