From 31b1cf906e71fceb5492ef16b83c43c51a03af3a Mon Sep 17 00:00:00 2001 From: bg66 Date: Fri, 30 Jun 2000 02:28:17 +0000 Subject: [PATCH] 2000-06-30 Akira Ohashi * liece.el (liece-server-parse-string): Fix regexp problem. --- lisp/liece.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/liece.el b/lisp/liece.el index f447be6..c148f9e 100644 --- a/lisp/liece.el +++ b/lisp/liece.el @@ -423,8 +423,8 @@ the `liece-server-keyword-map' variable." (defun liece-server-parse-string (string) "Convert a STRING set as `liece-server' and return a property list." - (when (or (string-match "^\\([^:]+\\):?\\([0-9]*\\)" string) - (string-match "^[\\([^\\[]+\\)]:?\\([0-9]*\\)" string)) + (when (or (string-match "^\\[\\([^]]+\\)\\]:?\\([0-9]*\\)" string) + (string-match "^\\([^:]+\\):?\\([0-9]*\\)" string)) (let ((host (match-string 1 string)) (service (match-string 2 string)) (password (substring string (match-end 0))) -- 1.7.10.4