From 3da91622f43bd4f62edfcc0c3e9aeba44e6912a0 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 19 Sep 2002 04:58:46 +0000 Subject: [PATCH] (unify-8859-on-encoding-mode): Set init value to t to reflect reality. (ucs-minibuffer-setup): Use minibuffer-selected-window. --- lisp/international/ucs-tables.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el index a56daa83511..15c9e1b52e9 100644 --- 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 -- 2.39.2