diff options
| author | Juanma Barranquero | 2008-01-25 15:43:05 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2008-01-25 15:43:05 +0000 |
| commit | 38b9f0f370787df00241e25cdb83aa4373801d60 (patch) | |
| tree | f6791aaf58d4795bf01f0bdd3de7aa1672b40943 | |
| parent | 97a739d5394d0b14a8dbafe624e2e6759154aa39 (diff) | |
| download | emacs-38b9f0f370787df00241e25cdb83aa4373801d60.tar.gz emacs-38b9f0f370787df00241e25cdb83aa4373801d60.zip | |
(server-process-filter): Don't force the authentication
string to be followed by "\n".
| -rw-r--r-- | lisp/server.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/server.el b/lisp/server.el index 2087af26b10..23f8eb36947 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -767,7 +767,7 @@ The following commands are accepted by the client: | |||
| 767 | (server-log (concat "Received " string) proc) | 767 | (server-log (concat "Received " string) proc) |
| 768 | ;; First things first: let's check the authentication | 768 | ;; First things first: let's check the authentication |
| 769 | (unless (process-get proc :authenticated) | 769 | (unless (process-get proc :authenticated) |
| 770 | (if (and (string-match "-auth \\(.*?\\)\n" string) | 770 | (if (and (string-match "-auth \\([!-~]+\\)\n?" string) |
| 771 | (equal (match-string 1 string) (process-get proc :auth-key))) | 771 | (equal (match-string 1 string) (process-get proc :auth-key))) |
| 772 | (progn | 772 | (progn |
| 773 | (setq string (substring string (match-end 0))) | 773 | (setq string (substring string (match-end 0))) |