Handle multiple parentheses and paranthesis not located at the end.

src/ChangeLog

 2000-11-18  Joel Rosdahl  <joel@rosdahl.net>
 
+	* commands1.el (kom-change-parenthesis): Handle multiple
+	parentheses and paranthesis not located at the end.
+
+	* vars.el.in (kom-server-aliases): kom.hem.liu.se instead of
+	rydkom.rydnet.lysator.liu.se.
+
 	* command.el (lyskom-read-extended-command): Revived the
 	minibuffer completion code from 0.46-BETA-P.
 	(lyskom-ok-command): Ditto.

src/commands1.el

@@ -1767,12 +1767,13 @@ converted so that the search is case insensitive."
 		    '(all) nil nil t)))
     (if (null conf-stat)
 	(lyskom-insert-string 'no-such-conf-or-pers)
-      (if (string-match "^\\([^(]*\\)(\\(.*\\))$" (conf-stat->name conf-stat))
-	  (let* ((non-paren (match-string 1 (conf-stat->name conf-stat)))
+      (if (string-match "^\\(.*\\)(\\(.*\\))\\(.*\\)$" (conf-stat->name conf-stat))
+	  (let* ((pre-paren (match-string 1 (conf-stat->name conf-stat)))
+                 (post-paren (match-string 3 (conf-stat->name conf-stat)))
 		 (old-paren (match-string 2 (conf-stat->name conf-stat)))
 		 (paren (lyskom-read-string (lyskom-get-string 'new-paren)
 					    old-paren))
-		 (name (concat non-paren "(" paren ")")))
+		 (name (concat pre-paren "(" paren ")" post-paren)))
 	    (if (blocking-do 'change-name (conf-stat->conf-no conf-stat) name)
                 (progn
                   (lyskom-format-insert 'change-name-done name