Mercurial > emacs

diff lisp/server.el @ 87964:fdac3d75dcdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 5350f7d1e7aa
children 921eddfa6d43
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)))