(standard-display-cyrillic-translit):

Set standard-display-table here, not when loading the file.
Read argument properly with `interactive'.

diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el
index f8291b30045555f3d0aedfa57c019e863c5ea4d3..055d53a35f32493c33e306591539d33c780879c6 100644 (file)
--- a/lisp/language/cyril-util.el
+++ b/lisp/language/cyril-util.el
@@ -41,8 +41,6 @@
            '("Russian")  '("Ukrainian"))
       "*List of known cyrillic languages")
 
-(setq standard-display-table (make-display-table))
-
 ;;;###autoload
 (defun standard-display-cyrillic-translit (&optional cyrillic-language)
   "Display a cyrillic buffer using a transliteration.
@@ -54,13 +52,15 @@ that affects the choice of transliterations slightly.
 Possible values are listed in 'cyrillic-language-alist'.
 If the argument is t, we use the default cyrillic transliteration.
 If the argument is nil, we return the display table to its standard state."
-  (interactive)
-  (if (interactive-p)
-      (let* ((completion-ignore-case t))
-       (setq cyrillic-language 
-             (completing-read
-              "Cyrillic language (default nil): "
-              cyrillic-language-alist nil t nil nil nil))))
+  (interactive
+   (list
+    (let* ((completion-ignore-case t))
+      (completing-read
+       "Cyrillic language (default nil): "
+       cyrillic-language-alist nil t nil nil nil))))
+
+  (or standard-display-table
+      (setq standard-display-table (make-display-table)))
 
   (if (equal cyrillic-language "")
       (setq cyrillic-language nil))