[Emacs-diffs] Changes to emacs/lisp/international/ucs-tables.el

[Stefan Monnier]

Index: emacs/lisp/international/ucs-tables.el
diff -c emacs/lisp/international/ucs-tables.el:1.16 
emacs/lisp/international/ucs-tables.el:1.17
*** emacs/lisp/international/ucs-tables.el:1.16 Wed Sep 11 17:00:27 2002
--- emacs/lisp/international/ucs-tables.el      Thu Sep 19 00:58:46 2002
***************
*** 1254,1260 ****
  See also command `unify-8859-on-decoding-mode'."
    :group 'mule
    :global t
!   :init-value nil
    (if unify-8859-on-encoding-mode
        (ucs-unify-8859 t)
      (ucs-fragment-8859 t)))
--- 1254,1260 ----
  See also command `unify-8859-on-decoding-mode'."
    :group 'mule
    :global t
!   :init-value t
    (if unify-8859-on-encoding-mode
        (ucs-unify-8859 t)
      (ucs-fragment-8859 t)))
***************
*** 2482,2491 ****
  ;; 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))
         buffer-file-coding-system)))
  
  ;; Modified to allow display of arbitrary characters with an
--- 2482,2492 ----
  ;; the above to work in it.
  (defun ucs-minibuffer-setup ()
    "Set up an appropriate `buffer-file-coding-system' for current buffer.
  Intended to be added to `minibuffer-setup-hook'."
    (set (make-local-variable 'buffer-file-coding-system)
!        (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