Commit 4baff52e authored by David Byers's avatar David Byers

Fixed untranslated strings.

Detailed changes:
> 	* check-strings.el (lcs-check-strings): If environment variable
> 	LYSKOM_CHECK_IDENTICAL is set, check for strings identical in two
> 	languages (many are expected, so this is off by default).
>
> 	* english-strings.el: Found four swedish strings. Fixed.
>
> 	* NEWS-0.48: Updated to here.
>
parent d5173ea7
2005-01-12 David Byers <byers@lysator.liu.se>
* check-strings.el (lcs-check-strings): If environment variable
LYSKOM_CHECK_IDENTICAL is set, check for strings identical in two
languages (many are expected, so this is off by default).
* english-strings.el: Found four swedish strings. Fixed.
* NEWS-0.48: Updated to here.
* swedish-strings.el (lyskom-sv-mode-map): Added M-c for
kom-toggle-cache-prefix.
......
......@@ -168,7 +168,25 @@ STRINGS is a list of (language . string)."
(let ((format-list 'uninitialized)
(first-str nil)
(first-lang nil)
(langs (mapcar 'car lyskom-languages)))
(langs (mapcar 'car lyskom-languages))
(a-str strings))
(when (getenv "LYSKOM_CHECK_IDENTICAL")
(while a-str
(let ((b-str (cdr a-str)))
(while b-str
(when (and (memq (car (car a-str)) langs)
(memq (car (car b-str)) langs)
(equal (cdr (car a-str)) (cdr (car b-str)))
(not (equal (cdr (car a-str)) "")))
(lcs-message nil "(%s:%s) Identical languages: %s, %s (%s)"
category name
(car (car a-str))
(car (car b-str))
(replace-in-string (cdr (car a-str)) "\n" " " t)))
(setq b-str (cdr b-str))))
(setq a-str (cdr a-str))))
(while strings
(let* ((lang (car (car strings)))
(str (cdr (car strings)))
......@@ -184,12 +202,8 @@ STRINGS is a list of (language . string)."
(lcs-ignore-ending-mismatch category name first-lang lang)
(lcs-message nil "(%s:%s) Ending mismatch\n %S\n %S"
category name first-str str))))
(setq format-list flist
first-str str
first-lang lang))
(setq strings (cdr strings)
langs (delq lang langs))))
(setq format-list flist first-str str first-lang lang))
(setq strings (cdr strings) langs (delq lang langs))))
(mapcar (lambda (el)
(setq langs (delq el langs)))
......
......@@ -366,8 +366,8 @@ and you have finished reading. Please come back later.
(setting-conf-pres . "Setting presentation of %#1M to text %#2n...")
(setting-conf-motd . "Setting notice for %#1M to text %#2n...")
(who-to-remove-pres-for . "Vilket mte/person vill du ta bort presentationen frn: ")
(removing-pres-for-conf . "Tar bort presentation (text %#2n) frn %#1M...")
(who-to-remove-pres-for . "Remove presentation from whom: ")
(removing-pres-for-conf . "Removing presentation (text %#2n) from %#1M...")
(cant-get-conf-stat . "Cannot get the status of that conference.\n")
(go-to-conf-p . "Go to conference: ")
......@@ -1675,7 +1675,7 @@ If you decline the invitation you will not be a member of the conference.
(accept-invitation . "Do you want to accept the invitation now? ")
(enter-passive . "You are a passive member of %#1M.
You must become an active member of the conference to enter it.\n")
(convert-passive . "Vill du bli aktiv medlem i %#1M? ")
(convert-passive . "Do you want to become an active member of %#1M? ")
(bug-secret-mship . "You are a secret member of %#1M\n")
(invitation-mt-type . "invited")
......@@ -3133,7 +3133,7 @@ Select whether to execute command or keyboard macro.")
(last-recipient-recpt . "The last person I sent a message to")
(viewer-program . "Web browser")
(no-viewer . "(ingenting valt)")
(no-viewer . "(none selected)")
(default-viewer . "Browse-URL (all)")
(netscape-viewer . "Netscape/Mozilla (all)")
(windows-viewer . "Windows default or Netscape/Mozilla (all)")
......
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