Skip to content
GitLab
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
dfc01eef
Commit
dfc01eef
authored
Oct 08, 1996
by
Niels Möller
Browse files
Completionkoden ändrad för att använda lyskom-get-string
parent
f4278aba
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/slow.el
View file @
dfc01eef
...
...
@@ -71,10 +71,8 @@ If the completion was not exact it returns nil."
(
let*
((
text
(
lyskom-get-entered-slow-command
))
(
completion-ignore-case
t
)
(
alternatives
(
mapcar
(
function
(
lambda
(
pair
)
(
list
(
cdr
pair
)
(
car
pair
))))
(
if
kom-emacs-knows-iso-8859-1
lyskom-commands
lyskom-swascii-commands
)))
(
cons
(
cdr
pair
)
(
car
pair
))))
(
lyskom-get-strings
lyskom-commands
'command
)))
(
completes
(
and
text
(
all-completions
text
alternatives
)))
(
command
nil
))
(
cond
...
...
@@ -84,10 +82,7 @@ If the completion was not exact it returns nil."
(
lyskom-insert-before-prompt
(
lyskom-get-string
'no-such-command
))
(
lyskom-beep
t
))
((
=
(
length
completes
)
1
)
(
setq
command
(
cons
(
car
(
rassq
(
car
completes
)
(
if
kom-emacs-knows-iso-8859-1
lyskom-commands
lyskom-swascii-commands
)))
(
setq
command
(
cons
(
cdr
(
assq
(
car
completes
)
alternatives
))
(
point
)))
(
delete-region
(
point
)
(
point-max
))
(
insert
(
car
completes
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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