diff options
| -rw-r--r-- | lisp/jsonrpc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el index 696a2daa286..6cf41311a14 100644 --- a/lisp/jsonrpc.el +++ b/lisp/jsonrpc.el | |||
| @@ -5,7 +5,7 @@ | |||
| 5 | ;; Author: João Távora <joaotavora@gmail.com> | 5 | ;; Author: João Távora <joaotavora@gmail.com> |
| 6 | ;; Keywords: processes, languages, extensions | 6 | ;; Keywords: processes, languages, extensions |
| 7 | ;; Package-Requires: ((emacs "25.2")) | 7 | ;; Package-Requires: ((emacs "25.2")) |
| 8 | ;; Version: 1.0.10 | 8 | ;; Version: 1.0.11 |
| 9 | 9 | ||
| 10 | ;; This is an Elpa :core package. Don't use functionality that is not | 10 | ;; This is an Elpa :core package. Don't use functionality that is not |
| 11 | ;; compatible with Emacs 25.2. | 11 | ;; compatible with Emacs 25.2. |
| @@ -398,7 +398,7 @@ connection object, called when the process dies .") | |||
| 398 | (ignore-errors (kill-buffer hidden-name)) | 398 | (ignore-errors (kill-buffer hidden-name)) |
| 399 | (rename-buffer hidden-name) | 399 | (rename-buffer hidden-name) |
| 400 | (process-put proc 'jsonrpc-stderr (current-buffer)) | 400 | (process-put proc 'jsonrpc-stderr (current-buffer)) |
| 401 | (read-only-mode t)) | 401 | (read-only-mode t))) |
| 402 | (setf (jsonrpc--process conn) proc) | 402 | (setf (jsonrpc--process conn) proc) |
| 403 | (set-process-buffer proc (get-buffer-create (format " *%s output*" name))) | 403 | (set-process-buffer proc (get-buffer-create (format " *%s output*" name))) |
| 404 | (set-process-filter proc #'jsonrpc--process-filter) | 404 | (set-process-filter proc #'jsonrpc--process-filter) |
| @@ -407,7 +407,7 @@ connection object, called when the process dies .") | |||
| 407 | (buffer-disable-undo) | 407 | (buffer-disable-undo) |
| 408 | (set-marker (process-mark proc) (point-min)) | 408 | (set-marker (process-mark proc) (point-min)) |
| 409 | (let ((inhibit-read-only t)) (erase-buffer) (read-only-mode t))) | 409 | (let ((inhibit-read-only t)) (erase-buffer) (read-only-mode t))) |
| 410 | (process-put proc 'jsonrpc-connection conn)))) | 410 | (process-put proc 'jsonrpc-connection conn))) |
| 411 | 411 | ||
| 412 | (cl-defmethod jsonrpc-connection-send ((connection jsonrpc-process-connection) | 412 | (cl-defmethod jsonrpc-connection-send ((connection jsonrpc-process-connection) |
| 413 | &rest args | 413 | &rest args |