[Emacs-diffs] Changes to emacs/lisp/international/ucs-tables.el

[Juanma Barranquero]

Index: emacs/lisp/international/ucs-tables.el
diff -c emacs/lisp/international/ucs-tables.el:1.13 
emacs/lisp/international/ucs-tables.el:1.14
*** emacs/lisp/international/ucs-tables.el:1.13 Wed Jul 17 15:21:41 2002
--- emacs/lisp/international/ucs-tables.el      Sun Jul 21 16:24:38 2002
***************
*** 2474,2483 ****
  (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)))
      (if (eq cs 'undecided)
!       (setq cs (coding-system-base default-buffer-file-coding-system)))
!     (if (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)))))
  
--- 2474,2485 ----
  (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 (and buffer-file-coding-system
!                (coding-system-base buffer-file-coding-system))))
      (if (eq cs 'undecided)
!       (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)))))