procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ucs-quail-activate): Cope if buffer-file-coding-system is nil.

Browse source
This commit is contained in:
Richard M. Stallman 2002-07-21 20:24:38 +00:00
parent 196a1cba66
commit 5b5b46b841
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/international/ucs-tables.el
View file

@ -2474,10 +2474,12 @@ Interactively, prompts for a hex string giving the code."
(defun ucs-quail-activate ()
"Set up an appropriate `translation-table-for-input' for current buffer.
Intended to be added to `quail-activate-hook'."
(let ((cs (coding-system-base buffer-file-coding-system)))
(let ((cs (and buffer-file-coding-system
(coding-system-base buffer-file-coding-system))))
(if (eq cs 'undecided)
(setq cs (coding-system-base default-buffer-file-coding-system)))
(if (coding-system-get cs 'translation-table-for-input)
(setq cs (and default-buffer-file-coding-system
(coding-system-base default-buffer-file-coding-system))))
(if (and cs (coding-system-get cs 'translation-table-for-input))
(set (make-variable-buffer-local 'translation-table-for-input)
(coding-system-get cs 'translation-table-for-input)))))