/[emacs]/emacs/lisp/international/ucs-tables.el
ViewVC logotype

Diff of /emacs/lisp/international/ucs-tables.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by fx, Wed Sep 11 21:00:27 2002 UTC revision 1.17 by monnier, Thu Sep 19 04:58:46 2002 UTC
# Line 1254  input method to search for e-acute in a Line 1254  input method to search for e-acute in a
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)))
# Line 2482  Intended to be added to `quail-activate- Line 2482  Intended to be added to `quail-activate-
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

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26