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
Peter Liljenberg
lyskom-elisp-client
Commits
3e139891
Commit
3e139891
authored
Sep 15, 1991
by
Linus Tolke
Browse files
Fixat ställen är iso->swascii inte fungerade.
parent
8f7b4c88
Changes
6
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
3e139891
No preview for this file type
src/commands1.el
View file @
3e139891
...
...
@@ -555,7 +555,7 @@ user so instead."
(
defun
kom-create-conf
(
conf-name
)
"Create a conference."
(
interactive
(
list
(
read-string
(
lyskom-get-string
'name-of-conf
))))
(
interactive
(
list
(
lyskom-
read-string
(
lyskom-get-string
'name-of-conf
))))
(
let*
((
open
(
j-or-n-p
(
lyskom-get-string
'anyone-member
)))
(
secret
(
if
(
not
open
)
(
j-or-n-p
(
lyskom-get-string
'secret-conf
))))
...
...
@@ -1160,7 +1160,8 @@ PRIORITY is the smallest priority the conference can be read with."
(
defun
kom-list-persons
(
match
)
"List all persons whose name matches MATCH (a string)."
(
interactive
(
list
(
read-string
(
lyskom-get-string
'search-for-pers
))))
(
interactive
(
list
(
lyskom-read-string
(
lyskom-get-string
'search-for-pers
))))
(
lyskom-start-of-command
'kom-list-persons
)
(
initiate-lookup-name
'main
'lyskom-list-pers-handler
match
))
...
...
@@ -1192,7 +1193,8 @@ PRIORITY is the smallest priority the conference can be read with."
(
defun
kom-list-conferences
(
match
)
"List all conferences whose name matches MATCH (a string).
Those that you are not a member in will be marked with an asterisk."
(
interactive
(
list
(
read-string
(
lyskom-get-string
'search-for-conf
))))
(
interactive
(
list
(
lyskom-read-string
(
lyskom-get-string
'search-for-conf
))))
(
lyskom-start-of-command
'kom-list-conferences
)
(
initiate-lookup-name
'main
'lyskom-list-conferences
match
))
...
...
@@ -1245,6 +1247,7 @@ If you are not member in the conference it will be flagged with an asterisk."
(
lyskom-end-of-command
))
(
progn
(
lyskom-insert
(
conf-stat->name
conf-stat
))
(
lyskom-scroll
)
(
lyskom-tell-internat
'kom-tell-change-name
)
(
setq
name
(
read-from-minibuffer
(
lyskom-get-string
'new-name
)))
(
initiate-change-name
'main
'lyskom-change-name-2
...
...
src/edit-text.el
View file @
3e139891
...
...
@@ -127,7 +127,8 @@ footn-to -> Fotnot till text %d."
(
setq
misc-list
(
cdr
misc-list
))))
(
lyskom-run
'edit
'princ
(
lyskom-format
'text-mass
subject
lyskom-header-separator
body
)
subject
lyskom-header-separator
body
lyskom-header-subject
)
where-put-misc
)
(
lyskom-run
'edit
'lyskom-edit-goto-char
where-put-misc
)
(
set-buffer
edit-buffer
)))
...
...
@@ -265,6 +266,7 @@ Entry to this mode runs lyskom-edit-mode-hook."
(
interactive
)
(
lyskom-clear-vars
)
(
setq
mode-line-buffer-identification
'
(
"LysKOM (server: %b)"
))
(
text-mode
)
(
run-hooks
'lyskom-edit-mode-mode-hook
)
(
setq
lyskom-edit-mode-mode-map
(
and
(
current-local-map
)
(
copy-keymap
(
current-local-map
))))
...
...
@@ -303,8 +305,8 @@ Entry to this mode runs lyskom-edit-mode-hook."
subject
(
lyskom-edit-extract-subject
)))
(
let
((
minibuffer-local-map
(
overlay-map
lyskom-edit-mode-mode-map
minibuffer-local-map
)))
(
setq
subject
(
read-string
(
lyskom-get-string
'subject
)
subject
)))
(
setq
subject
(
lyskom-
read-string
(
lyskom-get-string
'subject
)
subject
)))
(
setq
message
(
lyskom-edit-extract-text
))
(
setq
mode-name
"LysKOM sending"
)
(
save-excursion
...
...
@@ -467,7 +469,8 @@ to the text in BUFFER."
(
goto-char
(
point-min
))
(
let
((
result
(
cons
'MISC-LIST
nil
)))
(
while
(
and
(
<
(
point
)
(
point-max
))
(
not
(
equal
"Ä"
(
buffer-substring
(
point
)
(
1+
(
point
))))))
(
not
(
equal
(
elt
lyskom-header-subject
0
)
(
buffer-substring
(
point
)
(
1+
(
point
))))))
(
let
((
char
(
string-to-char
(
upcase
(
buffer-substring
(
point
)
(
1+
(
point
)))))))
(
nconc
...
...
src/lyskom-rest.el
View file @
3e139891
No preview for this file type
src/startup.el
View file @
3e139891
...
...
@@ -45,7 +45,7 @@
(
defun
lyskom
(
&optional
host
username
password
)
"Start a LysKOM session.
Optional arguments: HOST, USERNAME and PASSWORD."
(
interactive
(
list
(
read-string
(
lyskom-format
'server-q
(
interactive
(
list
(
lyskom-
read-string
(
lyskom-format
'server-q
(
or
(
getenv
"KOMSERVER"
)
lyskom-default-server
)))
nil
...
...
src/swedish-strings.el
View file @
3e139891
...
...
@@ -43,6 +43,10 @@
"*String to separate headers from text body."
)
(
defvar
lyskom-header-subject
"rende: "
"*String to prompt for subject in the edit buffer."
)
(
defconst
lyskom-strings
'
(
; From vars.el:
...
...
@@ -398,7 +402,7 @@ Lyskom-sessionen
(
press-C-c-C-c
.
"Tryck C-c C-c fr att skicka in texten."
)
(
recipient
.
"Mottagare:"
)
(
carbon-copy
.
"Extra kopia:"
)
(
text-mass
.
"
rende:
%#1s\n%#2s\n%#3s"
)
(
text-mass
.
"
%#4s
%#1s\n%#2s\n%#3s"
)
(
comment-to-by
.
"%#1s till text %#2d%#3s.\n"
)
(
already-sent
.
"Du har redan skickat denna text en gng. Snd nd? "
)
(
subject
.
"rende: "
)
...
...
Write
Preview
Markdown
is supported
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