Mercurial > emacs
comparison lisp/net/eudcb-ph.el @ 91073:4bc33ffdda1a
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 902-908)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 131-137)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 261-262)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-278
author | Miles Bader <miles@gnu.org> |
---|---|
date | Sat, 27 Oct 2007 09:12:07 +0000 |
parents | f55f9811f5d7 f873840f9fea |
children | 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
91072:74ab3ea909f9 | 91073:4bc33ffdda1a |
---|---|
177 (setq eudc-ph-process-buffer (get-buffer-create (format " *PH-%s*" host))) | 177 (setq eudc-ph-process-buffer (get-buffer-create (format " *PH-%s*" host))) |
178 (save-excursion | 178 (save-excursion |
179 (set-buffer eudc-ph-process-buffer) | 179 (set-buffer eudc-ph-process-buffer) |
180 (erase-buffer) | 180 (erase-buffer) |
181 (setq eudc-ph-read-point (point)) | 181 (setq eudc-ph-read-point (point)) |
182 (and eudc-xemacs-mule-p | 182 (and (featurep 'xemacs) (featurep 'mule) |
183 (set-buffer-file-coding-system 'binary t))) | 183 (set-buffer-file-coding-system 'binary t))) |
184 (setq process (open-network-stream "ph" eudc-ph-process-buffer host port)) | 184 (setq process (open-network-stream "ph" eudc-ph-process-buffer host port)) |
185 (if (null process) | 185 (if (null process) |
186 (throw 'done nil)) | 186 (throw 'done nil)) |
187 (set-process-query-on-exit-flag process t) | 187 (set-process-query-on-exit-flag process t) |