Commit 2631431f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(standard-display-cyrillic-translit):

Set standard-display-table here, not when loading the file.
Read argument properly with `interactive'.
parent e5a60108
......@@ -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))
......
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