Commit 96798598 authored by Joel Rosdahl's avatar Joel Rosdahl
Browse files

Handle multiple parentheses and paranthesis not located at the end.

parent 7bebe8e5
2000-11-18 Joel Rosdahl <joel@rosdahl.net> 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 * command.el (lyskom-read-extended-command): Revived the
minibuffer completion code from 0.46-BETA-P. minibuffer completion code from 0.46-BETA-P.
(lyskom-ok-command): Ditto. (lyskom-ok-command): Ditto.
......
...@@ -1767,12 +1767,13 @@ converted so that the search is case insensitive." ...@@ -1767,12 +1767,13 @@ converted so that the search is case insensitive."
'(all) nil nil t))) '(all) nil nil t)))
(if (null conf-stat) (if (null conf-stat)
(lyskom-insert-string 'no-such-conf-or-pers) (lyskom-insert-string 'no-such-conf-or-pers)
(if (string-match "^\\([^(]*\\)(\\(.*\\))$" (conf-stat->name conf-stat)) (if (string-match "^\\(.*\\)(\\(.*\\))\\(.*\\)$" (conf-stat->name conf-stat))
(let* ((non-paren (match-string 1 (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))) (old-paren (match-string 2 (conf-stat->name conf-stat)))
(paren (lyskom-read-string (lyskom-get-string 'new-paren) (paren (lyskom-read-string (lyskom-get-string 'new-paren)
old-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) (if (blocking-do 'change-name (conf-stat->conf-no conf-stat) name)
(progn (progn
(lyskom-format-insert 'change-name-done name (lyskom-format-insert 'change-name-done name
......
Supports Markdown
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