1254 |
See also command `unify-8859-on-decoding-mode'." |
See also command `unify-8859-on-decoding-mode'." |
1255 |
:group 'mule |
:group 'mule |
1256 |
:global t |
:global t |
1257 |
:init-value nil |
:init-value t |
1258 |
(if unify-8859-on-encoding-mode |
(if unify-8859-on-encoding-mode |
1259 |
(ucs-unify-8859 t) |
(ucs-unify-8859 t) |
1260 |
(ucs-fragment-8859 t))) |
(ucs-fragment-8859 t))) |
2482 |
;; the above to work in it. |
;; the above to work in it. |
2483 |
(defun ucs-minibuffer-setup () |
(defun ucs-minibuffer-setup () |
2484 |
"Set up an appropriate `buffer-file-coding-system' for current buffer. |
"Set up an appropriate `buffer-file-coding-system' for current buffer. |
|
Does so by inheriting it from the cadr of the current buffer list. |
|
2485 |
Intended to be added to `minibuffer-setup-hook'." |
Intended to be added to `minibuffer-setup-hook'." |
2486 |
(set (make-local-variable 'buffer-file-coding-system) |
(set (make-local-variable 'buffer-file-coding-system) |
2487 |
(with-current-buffer (cadr (buffer-list)) |
(with-current-buffer (let ((win (minibuffer-selected-window))) |
2488 |
|
(if (window-live-p win) (window-buffer win) |
2489 |
|
(cadr (buffer-list)))) |
2490 |
buffer-file-coding-system))) |
buffer-file-coding-system))) |
2491 |
|
|
2492 |
;; Modified to allow display of arbitrary characters with an |
;; Modified to allow display of arbitrary characters with an |