Mercurial > emacs
changeset 87964:fdac3d75dcdb
(server-process-filter): Don't force the authentication
string to be followed by "\n".
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 25 Jan 2008 15:43:05 +0000 |
| parents | 10a88d763b88 |
| children | e66c061f4966 |
| files | lisp/server.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/server.el Fri Jan 25 14:09:57 2008 +0000 +++ b/lisp/server.el Fri Jan 25 15:43:05 2008 +0000 @@ -767,7 +767,7 @@ (server-log (concat "Received " string) proc) ;; First things first: let's check the authentication (unless (process-get proc :authenticated) - (if (and (string-match "-auth \\(.*?\\)\n" string) + (if (and (string-match "-auth \\([!-~]+\\)\n?" string) (equal (match-string 1 string) (process-get proc :auth-key))) (progn (setq string (substring string (match-end 0)))