[mew-win32 4465] Re: MasterPW に C-g 連打 で固まる
Kazu Yamamoto (山本和彦) <[email protected]>
| Newsgroups | gmane.mail.mew.windows |
|---|---|
| Message-ID | <[email protected]> |
> (1) mew-rendezvous() C-g
+(defmacro mew-rendezvous (who &optional iquit)
;; Wait for the termination of WHO.
;; Emacs does not provide synchronize mechanism with
;; an asynchronous process. So, take this way.
- `(while ,who
- (sit-for 0.1)
- ;; accept-process-output or sleep-for is not enough
- (discard-input)))
+ `(let ((inhibit-quit ,iquit))
+ (while ,who
+ (sit-for 0.1)
+ ;; accept-process-output or sleep-for is not enough
+ (discard-input)
+ (when (and inhibit-quit quit-flag)
+ (setq ,who nil)))))
mew-ssh/ssl
(mew-rendezvous (null (mew-ssl-get-status pnm)))
setq
(condition-case nil
(mew-rendezvous mew-passwd-rendezvous)
(quit (setq mew-passwd-rendezvous nil)))
C-g sentinel
sentinel set-buffer
--