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
e2e9195c
Commit
e2e9195c
authored
Jul 31, 1996
by
David Byers
Browse files
Tillåt bara kom-sync-database om serverversionen är 1.9 eller senare
parent
35e72fa9
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/commands2.el
View file @
e2e9195c
...
...
@@ -1087,9 +1087,14 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
(
def-kom-command
kom-sync-database
()
"Save the LysKOM database."
(
interactive
)
(
if
(
lyskom-ja-or-nej-p
(
lyskom-get-string
'really-sync
))
(
progn
(
lyskom-insert-string
'syncing-server
)
(
lyskom-report-command-answer
(
blocking-do
'sync
)))))
(
if
(
or
(
>
(
elt
lyskom-server-version
0
)
1
)
(
and
(
=
(
elt
lyskom-server-version
0
)
1
)
(
>
(
elt
lyskom-server-version
1
)
8
)))
(
if
(
lyskom-ja-or-nej-p
(
lyskom-get-string
'really-sync
))
(
progn
(
lyskom-insert-string
'syncing-server
)
(
lyskom-report-command-answer
(
blocking-do
'sync
))))
(
setq
lyskom-errno
12
)
(
lyskom-report-command-answer
nil
)))
;;; ================================================================
...
...
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