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

[Stefan Monnier]

Index: emacs/lisp/international/ucs-tables.el
diff -c emacs/lisp/international/ucs-tables.el:1.37 
emacs/lisp/international/ucs-tables.el:1.38
*** emacs/lisp/international/ucs-tables.el:1.37 Mon Mar 29 12:05:16 2004
--- emacs/lisp/international/ucs-tables.el      Sat Apr 16 21:00:47 2005
***************
*** 1,6 ****
  ;;; ucs-tables.el --- translation to, from and via Unicode  -*- coding: 
iso-2022-7bit -*-
  
! ;; Copyright (C) 2001, 2002  Free Software Foundation, Inc.
  
  ;; Author: Dave Love <address@hidden>
  ;; Keywords: i18n
--- 1,6 ----
  ;;; ucs-tables.el --- translation to, from and via Unicode  -*- coding: 
iso-2022-7bit -*-
  
! ;; Copyright (C) 2001, 2002, 2005  Free Software Foundation, Inc.
  
  ;; Author: Dave Love <address@hidden>
  ;; Keywords: i18n
***************
*** 2496,2503 ****
  ;; normal-mode and minibuffer-setup-hook.
  (defun ucs-set-table-for-input (&optional buffer)
    "Set up an appropriate `translation-table-for-input' for BUFFER.
! BUFFER defaults to the current buffer."
    (when (and unify-8859-on-encoding-mode
             (char-table-p translation-table-for-input))
      (let ((cs (and buffer-file-coding-system
                   (coding-system-base buffer-file-coding-system)))
--- 2496,2505 ----
  ;; normal-mode and minibuffer-setup-hook.
  (defun ucs-set-table-for-input (&optional buffer)
    "Set up an appropriate `translation-table-for-input' for BUFFER.
! BUFFER defaults to the current buffer.
! This function is automatically called directly at the end of 
`get-buffer-create'."
    (when (and unify-8859-on-encoding-mode
+              (not unify-8859-on-decoding-mode)
             (char-table-p translation-table-for-input))
      (let ((cs (and buffer-file-coding-system
                   (coding-system-base buffer-file-coding-system)))
***************
*** 2535,2539 ****
  
  (provide 'ucs-tables)
  
! ;;; arch-tag: b497e22b-7fe1-486a-9352-e2d7f7d76a76
  ;;; ucs-tables.el ends here
--- 2537,2541 ----
  
  (provide 'ucs-tables)
  
! ;; arch-tag: b497e22b-7fe1-486a-9352-e2d7f7d76a76
  ;;; ucs-tables.el ends here