Entered the kom-tell-phrases with validation test.

src/english-strings.el

@@ -893,6 +893,10 @@ Cf. paragraph-start.")
 					; Created *-tell-*
 
 
+;;; To coders of the elisp-client:
+;;; You not only have to change the text here, you also have to change 
+;;; in vars.el if you want add/rename/remove one of these.
+
 (defconst kom-tell-phrases
   '(
     (kom-tell-silence		"") ; Why ?

src/swedish-strings.el

@@ -65,6 +65,7 @@
   (define-key lyskom-edit-mode-map "\C-c}k"	'kom-edit-show-commented)
   (define-key lyskom-edit-mode-map "\C-ci?"	'lyskom-help)
   (define-key lyskom-edit-mode-map "\C-cik"	'kom-edit-insert-commented)
+  (define-key lyskom-edit-mode-map "\C-c\C-y"	'kom-edit-insert-commented)
   (define-key lyskom-edit-mode-map "\C-ci1"	'kom-edit-insert-digit-text)
   (define-key lyskom-edit-mode-map "\C-ci2"	'kom-edit-insert-digit-text)
   (define-key lyskom-edit-mode-map "\C-ci3"	'kom-edit-insert-digit-text)
@@ -926,28 +927,14 @@ Cf. paragraph-start.")
 					; Created *-tell-*
 
 
-(defconst kom-tell-phrases
-  '(
-    (kom-tell-silence		"") ; Why ?
-    (kom-tell-send		"F\366rs\366ker l\344gga in en text.")
-    (kom-tell-login		"Loggar in.")
-    (kom-tell-read		"L\344ser.")
-    (kom-tell-1st-pres		"Skriver den f\366rsta presentationen.")
-    (kom-tell-write-comment	"Skriver en kommentar.")
-    (kom-tell-write-footnote	"Skriver en fotnot.")
-    (kom-tell-write-letter	"Skriver ett brev.")
-    (kom-tell-write-reply	"Skriver ett privat svar.")
-    (kom-tell-write-text	"Skriver inl\344gg.")
-    (kom-tell-conf-pres		"Skriver presentation f\366r ett nytt m\366te.")
-    (kom-tell-recover		"Trycker 'r'. Suck.")
-    (kom-tell-wait		"V\344ntar.")
-    (kom-tell-regret		"\305ngrar sig och sl\344nger inl\344gget.")
-    (kom-tell-review		"\305terser.")
-    (kom-tell-change-name       "ndrar sitt namn till n\345got annat.")
-    (kom-tell-change-supervisor "ndrar organisat\366r f\366r n\345got.")
-    )
+;;;; kom-tell-phrases-internal moved to vars.el
+;;; To coders of the elisp-client:
+;;; dont change the kom-tell-phrases here, change it in vars.el.
+
+(defvar kom-tell-phrases kom-tell-phrases-internal
   "These texts are used as arguments to lyskom-tell-server.
-The variable kom-mercial defaults to kom-tell-wait.")
+The variable kom-mercial defaults to kom-tell-wait.
+Users are encouraged to change this dictionary for fun.")
 
 
 ;; Placed here because this must NOT be evaluated before 

src/vars.el

@@ -500,6 +500,32 @@ unread texts in list-unread.")
   "This variable is t if the user is in administrator mode and nil otherwise.")
 
 
+;;;; The default is a swedish-speaking server.
+
+(defconst kom-tell-phrases-internal
+  '(
+    (kom-tell-silence		"") ; Why ?
+    (kom-tell-send		"F\366rs\366ker l\344gga in en text.")
+    (kom-tell-login		"Loggar in.")
+    (kom-tell-read		"L\344ser.")
+    (kom-tell-1st-pres		"Skriver den f\366rsta presentationen.")
+    (kom-tell-write-comment	"Skriver en kommentar.")
+    (kom-tell-write-footnote	"Skriver en fotnot.")
+    (kom-tell-write-letter	"Skriver ett brev.")
+    (kom-tell-write-reply	"Skriver ett privat svar.")
+    (kom-tell-write-text	"Skriver inl\344gg.")
+    (kom-tell-conf-pres		"Skriver presentation f\366r ett nytt m\366te.")
+    (kom-tell-recover		"Trycker 'r'. Suck.")
+    (kom-tell-wait		"V\344ntar.")
+    (kom-tell-regret		"\305ngrar sig och sl\344nger inl\344gget.")
+    (kom-tell-review		"\305terser.")
+    (kom-tell-change-name       "Ändrar sitt namn till n\345got annat.")
+    (kom-tell-change-supervisor "Ändrar organisat\366r f\366r n\345got.")
+    )
+  "The variable  kom-tell-phrases  defaults to this value.
+Users must not change this constant, but are encouraged to change
+the value of  kom-tell-phrases  for fun.")
+
 ;;; ================================================================
 ;;;          Externally defined variables (environment)