;;; ucs-tables.el --- translation to, from and via Unicode -*- coding: iso-2022-7bit -*-
-;; Copyright (C) 2001, 2002, 2003, 2005 Free Software Foundation, Inc.
-;; Copyright (C) 2002, 2003
+;; Copyright (C) 2001, 2002, 2003, 2005, 2006, 2007 Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007
;; National Institute of Advanced Industrial Science and Technology (AIST)
;; Registration Number H14PRO021
;; 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'."
+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))
(when (char-table-p table)
(if buffer
(with-current-buffer buffer
- (set (make-variable-buffer-local 'translation-table-for-input)
+ (set (make-local-variable 'translation-table-for-input)
table))
- (set (make-variable-buffer-local 'translation-table-for-input)
+ (set (make-local-variable 'translation-table-for-input)
table)))))))
;; The minibuffer needs to acquire a `buffer-file-coding-system' for