Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
96798598
Commit
96798598
authored
Nov 18, 2000
by
Joel Rosdahl
Browse files
Handle multiple parentheses and paranthesis not located at the end.
parent
7bebe8e5
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
96798598
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
View file @
96798598
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment