Lines Matching defs:lang
50 (defvar tutorial--lang nil
52 (make-variable-buffer-local 'tutorial--lang)
548 (let ((head (get-lang-string tutorial--lang 'tut-chgdhead))
549 (head2 (get-lang-string tutorial--lang 'tut-chgdhead2)))
580 s1 (get-lang-string tutorial--lang 'tut-chgdkey)
581 s2 (get-lang-string tutorial--lang 'tut-chgdkey2)
619 (let ((file-name tutorial--lang)
620 (ext (file-name-extension tutorial--lang)))
753 (let* ((lang (if arg
761 (filename (get-language-info lang 'tutorial))
764 (tut-buf-name (concat "TUTORIAL (" lang ")"))
797 (unless lang (error "Variable lang is nil"))
798 (setq tutorial--lang lang)
893 (defconst lang-strings
911 See `get-lang-string' for more information.")
913 (defun get-lang-string (lang stringid &optional no-eng-fallback)
925 See `lang-strings' for more information.
928 (let ((my-lang-strings (assoc lang lang-strings))
930 (when my-lang-strings
931 (let ((entry (assoc stringid (cdr my-lang-strings))))
937 (setq found-string (get-lang-string "English" stringid t)))
940 ;;(get-lang-string "English" 'tut-chgdkey)