diff options
| author | Stefan Monnier <[email protected]> | 2002-09-19 04:58:46 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2002-09-19 04:58:46 +0000 |
| commit | 3da91622f43bd4f62edfcc0c3e9aeba44e6912a0 (patch) | |
| tree | 2eb6b097cefee245f24eb25ae2fa80246a870164 | |
| parent | e006b3cd93b56b93ec65e884a8c19efc7b3e0dbe (diff) | |
(unify-8859-on-encoding-mode): Set init value to t to reflect reality.
(ucs-minibuffer-setup): Use minibuffer-selected-window.
| -rw-r--r-- | lisp/international/ucs-tables.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el index a56daa8351..15c9e1b52e 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 |