Commit 96798598 authored by Joel Rosdahl's avatar Joel Rosdahl

Handle multiple parentheses and paranthesis not located at the end.

parent 7bebe8e5
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment