# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1027283078 0
# Node ID 6262acd6c7ac0e7471c16aa9a9135b6bcece1ae7
# Parent  ea15c9ca1d86489d4242493bcb4f25d7ddef1d8b
(ucs-quail-activate): Cope if buffer-file-coding-system is nil.

diff -r ea15c9ca1d86 -r 6262acd6c7ac lisp/international/ucs-tables.el
--- a/lisp/international/ucs-tables.el	Sun Jul 21 20:23:32 2002 +0000
+++ b/lisp/international/ucs-tables.el	Sun Jul 21 20:24:38 2002 +0000
@@ -2474,10 +2474,12 @@
 (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)))))