Commit 9a245db0 authored by Linus Tolke Y's avatar Linus Tolke Y

Entered the kom-tell-phrases with validation test.

parent 25a52be1
No preview for this file type
......@@ -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 ?
......
......@@ -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
......
......@@ -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)
......
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