(unify-8859-on-encoding-mode): Set init value to t to reflect reality.

(ucs-minibuffer-setup): Use minibuffer-selected-window.

diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el
index a56daa8351141ce16dd5d9ee7f53e2928a898c0a..15c9e1b52e98ee21774b26f1ca864610a3b44592 100644 (file)
--- a/lisp/international/ucs-tables.el
+++ b/lisp/international/ucs-tables.el
@@ -1254,7 +1254,7 @@ input method to search for e-acute in a Latin-1 buffer.
 See also command `unify-8859-on-decoding-mode'."
   :group 'mule
   :global t
-  :init-value nil
+  :init-value t
   (if unify-8859-on-encoding-mode
       (ucs-unify-8859 t)
     (ucs-fragment-8859 t)))
@@ -2482,10 +2482,11 @@ Intended to be added to `quail-activate-hook'."
 ;; the above to work in it.
 (defun ucs-minibuffer-setup ()
   "Set up an appropriate `buffer-file-coding-system' for current buffer.
-Does so by inheriting it from the cadr of the current buffer list.
 Intended to be added to `minibuffer-setup-hook'."
   (set (make-local-variable 'buffer-file-coding-system)
-       (with-current-buffer (cadr (buffer-list))
+       (with-current-buffer (let ((win (minibuffer-selected-window)))
+                             (if (window-live-p win) (window-buffer win)
+                               (cadr (buffer-list))))
         buffer-file-coding-system)))
 
 ;; Modified to allow display of arbitrary characters with an