Commit 95e4a10c authored by David Kågedal's avatar David Kågedal
Browse files

Småfixar

parent 1fdfe602
......@@ -3,6 +3,12 @@ Sun Jun 23 02:16:23 1996 David K
* edit-text.el (lyskom-edit-parse-headers): Kr
lyskom-swascii-header-subject genom regexp-quote innan matchning.
Thu Jun 20 01:08:00 1996 David Kgedal <davidk@lysator.liu.se>
* async.el (lyskom-show-logged-in-person): Hantera hemliga
personer.
(lyskom-show-logged-out-person): Dito.
Tue Jun 11 09:25:24 1996 David Byers <davby@sen2.ida.liu.se>
* parse.el (lyskom-parse-conf-type): Hanterar Any-Conf-Type.
......@@ -28,6 +34,9 @@ Tue Jun 11 09:25:24 1996 David Byers <davby@sen2.ida.liu.se>
Thu Jun 6 02:59:01 1996 David Kgedal <davidk@lysator.liu.se>
* swedish-strings.el (lyskom-strings): La till kolon p ngra
frgor.
* startup.el (kom-start-anew): Anropa clear-all-caches.
* cache.el (cache-clear): Ny funktion.
......
......@@ -203,12 +203,20 @@ this function shall be with current-buffer the BUFFER."
(cond
((lyskom-is-in-minibuffer))
(kom-presence-messages
(lyskom-message "%s" (lyskom-format 'has-entered conf-stat))))
(lyskom-message
"%s"
(lyskom-format 'has-entered (or conf-stat
(lyskom-get-string 'secret-person))))))
(cond
(kom-presence-messages-in-buffer
(lyskom-format-insert-before-prompt 'has-entered-r conf-stat
(and kom-text-properties
'(face kom-presence-face))))))
(if conf-stat
(lyskom-format-insert-before-prompt 'has-entered-r conf-stat
(and kom-text-properties
'(face kom-presence-face)))
(lyskom-format-insert-before-prompt 'has-entered-r
(lyskom-get-string 'secret-person)
(and kom-text-properties
'(face kom-presence-face)))))))
(defun lyskom-show-logged-out-person (conf-stat session-no)
......@@ -216,12 +224,20 @@ this function shall be with current-buffer the BUFFER."
(cond
((lyskom-is-in-minibuffer))
(kom-presence-messages
(lyskom-message "%s" (lyskom-format 'has-left conf-stat))))
(lyskom-message
"%s"
(lyskom-format 'has-left (or conf-stat
(lyskom-get-string 'secret-person))))))
(cond
(kom-presence-messages-in-buffer
(lyskom-format-insert-before-prompt 'has-left-r conf-stat
(and kom-text-properties
'(face kom-presence-face))))))
(if conf-stat
(lyskom-format-insert-before-prompt 'has-left-r conf-stat
(and kom-text-properties
'(face kom-presence-face)))
(lyskom-format-insert-before-prompt 'has-left-r
(lyskom-get-string 'secret-person)
(and kom-text-properties
'(face kom-presence-face)))))))
(defun lyskom-show-changed-person (personconfstat conf-num doing)
......
......@@ -124,7 +124,7 @@ Help: \\[describe-mode] ---")
(you-have-motd . "\nYou have a note on your door:\n\n")
(lyskom-motd-was-garbed . "\nThe login message does not exist!
The message that was supposed to be shown after login has disappeared.
Please contact the system administrator.\n")
Please contact the LysKOM administrator.\n")
(presentation-encouragement .
"You have not written a presentation. Please write a presentation by using
the command Ap. If you do not want to write a presentations, please type fk.\n")
......@@ -299,11 +299,11 @@ and you have finished reading. Please come back later.
(from-machine . "At")
(is-doing . "Activity")
(lyskom-client . "Client")
(text-to-add-recipient . "Add recipient to which article: ")
(text-to-add-copy . "Add recipient of carbon copy of which article: ")
(text-to-delete-recipient . "Remove recipient from which article: ")
(text-to-add-comment-to . "Add comment to which article: ")
(text-to-delete-comment-from . "Remove comment from which article: ")
(text-to-add-recipient . "Add recipient to which article:")
(text-to-add-copy . "Add recipient of carbon copy of which article:")
(text-to-delete-recipient . "Remove recipient from which article:")
(text-to-add-comment-to . "Add comment to which article:")
(text-to-delete-comment-from . "Remove comment from which article:")
(where-on-list-q . "Placement in your list? (0-%#1d) ")
(member-in-conf . "Joining to %#1M...")
......@@ -655,6 +655,7 @@ for an article.
(has-left . "%#1:P has left LysKOM.")
(has-left-r . "%#2@%#1P has left LysKOM.\n")
(unknown . "unknown")
(secret-person . "Secret user")
(message-broadcast .
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
......
......@@ -129,7 +129,7 @@ Annat se \\[describe-mode] ---")
(you-have-motd . "\nDu har en lapp p\345 d\366rren:\n\n")
(lyskom-motd-was-garbed . "\nLoginmeddelandet finns inte!
Det meddelande som ska visas efter inloggning har f\366rsvunnit.
Kontakta systemadministratera.\n")
Kontakta LysKOM-administrat\366ren.\n")
(presentation-encouragement .
"Du har ingen presentation. Det skulle vara trevligt om du skrev en.
Anv\344nd kommandot \304p. Om du inte vill skriva n\345gon presentation tryck fs.\n")
......@@ -298,11 +298,11 @@ du har l\344st klart allting. Kom tillbaks senare.
(from-machine . "K\366r fr\345n")
(is-doing . "G\366r")
(lyskom-client . "Klient")
(text-to-add-recipient . "Vilket inl\344gg vill du addera mottagare till")
(text-to-add-copy . "Vilket inl\344gg vill du addera en extra kopia till")
(text-to-delete-recipient . "Vilket inl\344gg vill du subtrahera mottagare fr\345n")
(text-to-add-comment-to . "Vilket inl\344gg vill du addera en kommentar till")
(text-to-delete-comment-from . "Vilket inl\344gg vill du subtrahera en kommentar fr\345n")
(text-to-add-recipient . "Vilket inl\344gg vill du addera mottagare till:")
(text-to-add-copy . "Vilket inl\344gg vill du addera en extra kopia till:")
(text-to-delete-recipient . "Vilket inl\344gg vill du subtrahera mottagare fr\345n:")
(text-to-add-comment-to . "Vilket inl\344gg vill du addera en kommentar till:")
(text-to-delete-comment-from . "Vilket inl\344gg vill du subtrahera en kommentar fr\345n:")
(where-on-list-q . "Placering p\345 listan? (0-%#1d) ")
(member-in-conf . "Bli medlem i %#1M...")
......@@ -670,6 +670,7 @@ upptagna. Logga ut och kom tillbaks senare om du v\344ntar nu.
(has-left . "Nu har %#1:P g\345tt ur LysKOM.")
(has-left-r . "%#2@Nu har %#1P g\345tt ur LysKOM.\n")
(unknown . "ok\344nd")
(secret-person . "Hemlig person")
(message-broadcast .
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
......
Markdown is supported
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