From: bg66 Date: Fri, 30 Jun 2000 02:28:17 +0000 (+0000) Subject: 2000-06-30 Akira Ohashi X-Git-Tag: liece-1_4_4-1~58 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=31b1cf906e71fceb5492ef16b83c43c51a03af3a;p=elisp%2Fliece.git 2000-06-30 Akira Ohashi * liece.el (liece-server-parse-string): Fix regexp problem. --- 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)))