diff options
| author | Lars Magne Ingebrigtsen | 2012-03-04 00:15:34 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2012-03-04 00:15:34 +0000 |
| commit | a1e7225c983f616ed6b43c9861b9c1374bbab2bb (patch) | |
| tree | ee7b615df7f8092295764c079996fcf4d534997d | |
| parent | 7d2d7cc06546f8382f95dbc83909aa8cebf3828f (diff) | |
| download | emacs-a1e7225c983f616ed6b43c9861b9c1374bbab2bb.tar.gz emacs-a1e7225c983f616ed6b43c9861b9c1374bbab2bb.zip | |
net/tls.el (open-tls-stream): Don't set the dont-query-on-exit flag.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/net/tls.el | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c9c12a2e861..e4b07c53373 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -5,6 +5,10 @@ | |||
| 5 | when doing the prompting for `sendmail-query-once' before sending | 5 | when doing the prompting for `sendmail-query-once' before sending |
| 6 | in Message buffers (bug#10897). | 6 | in Message buffers (bug#10897). |
| 7 | 7 | ||
| 8 | * net/tls.el (open-tls-stream): Don't set the dont-query-on-exit flag. | ||
| 9 | This is inconsistent with all the other stream functions, which leave | ||
| 10 | the setting up to the higher levels (if so wanted) (bug#10931). | ||
| 11 | |||
| 8 | 2012-03-02 Alan Mackenzie <acm@muc.de> | 12 | 2012-03-02 Alan Mackenzie <acm@muc.de> |
| 9 | 13 | ||
| 10 | Depessimize the handling of very large macros. | 14 | Depessimize the handling of very large macros. |
diff --git a/lisp/net/tls.el b/lisp/net/tls.el index 9b9eb6f8f2e..d232095444b 100644 --- a/lisp/net/tls.el +++ b/lisp/net/tls.el | |||
| @@ -237,10 +237,6 @@ Fourth arg PORT is an integer specifying a port to connect to." | |||
| 237 | (setq process (start-process | 237 | (setq process (start-process |
| 238 | name buffer shell-file-name shell-command-switch | 238 | name buffer shell-file-name shell-command-switch |
| 239 | formatted-cmd)) | 239 | formatted-cmd)) |
| 240 | (funcall (if (fboundp 'set-process-query-on-exit-flag) | ||
| 241 | 'set-process-query-on-exit-flag | ||
| 242 | 'process-kill-without-query) | ||
| 243 | process nil) | ||
| 244 | (while (and process | 240 | (while (and process |
| 245 | (memq (process-status process) '(open run)) | 241 | (memq (process-status process) '(open run)) |
| 246 | (progn | 242 | (progn |