(define-iso-single-byte-charset):

Don't make latin-iso8859-* supplementary.
(#'set-charset-priority): Don't change the priority of charsets
`unicode' and `emacs'.

lisp/ChangeLog

+2008-03-27  Kenichi Handa  <handa@ni.aist.go.jp>
+
+	* international/mule-conf.el (define-iso-single-byte-charset):
+	Don't make latin-iso8859-* supplementary.
+	(#'set-charset-priority): Don't change the priority of charsets
+	`unicode' and `emacs'.
+
 2008-03-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 	* vc.el (vc-do-command): Don't pop to the buffer if it's an internal
@@ -38,7 +45,7 @@
 	* image-mode.el (image-mode-reapply-winprops): Simplify now that
 	window-configuration-change-hook works buffer-locally.
-2008-03-26  Johan Bockg$(Q)[(Brd  <bojohan@gnu.org>
+2008-03-26  Johan Bockgård  <bojohan@gnu.org>
 	* emacs-lisp/lisp-mnt.el (lm-with-file): Use mode and syntax table
 	for Emacs Lisp, not Lisp.
@@ -51,7 +58,7 @@
 	* emacs-lisp/bytecomp.el (byte-compile-obsolete): If no
 	replacement is provided, don't print "use nil instead".
-2008-03-26  Johan Bockg$(Q)[(Brd  <bojohan@gnu.org>
+2008-03-26  Johan Bockgård  <bojohan@gnu.org>
 	* complete.el (PC-do-completion): Use regexp-quote.
@@ -192,7 +199,7 @@
 	(verilog-signals-matching-regexp): New internal function for
 	signal matching.
-2008-03-25  Johan Bockg$(Q)[(Brd  <bojohan@gnu.org>
+2008-03-25  Johan Bockgård  <bojohan@gnu.org>
 	* info.el (Info-isearch-search): Always return point.
@@ -629,7 +636,7 @@
 	* international/mule.el (load-with-code-conversion): Avoid setting
 	default-enable-multibyte-characters.
-2008-03-19  Gustav H$(Q)[(Bllberg  <gustav@virtutech.com>  (tiny change)
+2008-03-19  Gustav Hållberg  <gustav@virtutech.com>  (tiny change)
 	* vc.el (vc-annotate-background): Fix custom type.
@@ -1192,7 +1199,7 @@
 	* progmodes/sh-script.el (sh-font-lock-quoted-subshell): Fix handling
 	of \ and '.
-2008-03-13  Johan Bockg$(Q)[(Brd  <bojohan@gnu.org>
+2008-03-13  Johan Bockgård  <bojohan@gnu.org>
 	* net/browse-url.el (browse-url-text-xterm):
 	Unquote browse-url-text-browser.
@@ -1680,7 +1687,7 @@
 	(bookmark-insert-buffer-name): Remove.
 	(bookmark-buffer-file-name): Signal an error rather than returning nil.
-2008-03-09  Thomas H$(Q)q(Bhn  <xf27@arcor.de>  (tiny change)
+2008-03-09  Thomas Hühn  <xf27@arcor.de>  (tiny change)
 	* tutorial.el (tutorial--default-keys): Update `C-l' binding.
@@ -1745,7 +1752,7 @@
 	(bookmark-prop-get): Declare.
 	(Info-bookmark-jump): Use it.
-2008-03-08  Johan Bockg$(Q)[(Brd  <bojohan@gnu.org>
+2008-03-08  Johan Bockgård  <bojohan@gnu.org>
 	* subr.el (while-no-input): Don't splice BODY directly into the
 	`or' form.
@@ -1949,7 +1956,7 @@
 	* image-mode.el (image-bookmark-make-record):
 	* info.el (Info-bookmark-make-record): Delete obsolete second arg.
-2008-03-07  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2008-03-07  Jan Djärv  <jan.h.d@swipnet.se>
 	* vc.el (vc-status-menu-map-filter): Return orig-binding if
 	boundp 'vc-ignore-menu-filter.
@@ -2099,7 +2106,7 @@
 	(org-promote, org-demote, org-archive-subtree)
 	(org-remember-handler, org-refile, org-put-clock-overlay): Use it.
-2008-03-06  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2008-03-06  Jan Djärv  <jan.h.d@swipnet.se>
 	* term/x-win.el (x-gtk-stock-map): Add bookmark_add.
@@ -2596,7 +2603,7 @@
 	when using transient-mark-mode.
 	(default-indicate-unused-lines): Remove unused var.
-2008-02-26  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2008-02-26  Jan Djärv  <jan.h.d@swipnet.se>
 	* progmodes/grep.el (grep-mode-tool-bar-map): Change place on next
 	and previous.
@@ -2666,7 +2673,7 @@
 	* help-mode.el (help-info-variable):
 	New button able to read Info files for help-fns.el.
-2008-02-25  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2008-02-25  Jan Djärv  <jan.h.d@swipnet.se>
 	* progmodes/grep.el (grep-mode-tool-bar-map): New variable.
 	(grep-mode): Use grep-mode-tool-bar-map.
@@ -2903,7 +2910,7 @@
 	* font-lock.el (font-lock-set-defaults): Unset previously set variables
 	when needed.
-2008-02-24  $(C(!(Bvar Arnfj$(Q)l(Br$(C)#(B Bjarmason  <avar@cpan.org>  (tiny change)
+2008-02-24  Ævar Arnfjörð Bjarmason  <avar@cpan.org>  (tiny change)
 	* net/rcirc.el (rcirc-url-regexp): Replace definition by copying
 	from gnus-button-url-regexp.
@@ -3481,7 +3488,7 @@
 	* startup.el (command-line): Use custom-reevaluate-setting for
 	transient-mark-mode.
-2008-02-17  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2008-02-17  Michaël Cadilhac  <michael@cadilhac.name>
 	* wdired.el (wdired-allow-to-change-permissions): Fix typo.
@@ -5631,7 +5638,7 @@
 2008-02-01  Dave Love  <fx@gnu.org>
 	* international/mule-diag.el (describe-character-set):
-	Fix printing dimensions.  Use `$(C!?(B', not `x'.
+	Fix printing dimensions.  Use `×', not `x'.
 2008-02-01  Kenichi Handa  <handa@m17n.org>
@@ -6078,7 +6085,7 @@
 2008-02-01  Dave Love  <fx@gnu.org>
-	* international/characters.el: Make $(D*s(B and $(Q)t(B a case pair.
+	* international/characters.el: Make Ÿ and ÿ a case pair.
 2008-02-01  Kenichi Handa  <handa@etl.go.jp>
@@ -10015,7 +10022,7 @@
 	* progmodes/python.el (top-level): Don't require cl when compiling.
-2007-12-02  Agust$(Q)c(Bn Mart$(Q)c(Bn  <agustin.martin@hispalinux.es>
+2007-12-02  Agustín Martín  <agustin.martin@hispalinux.es>
 	* textmodes/flyspell.el (flyspell-large-region): Explicitly set
 	encoding for aspell process and for communication with it.
@@ -10759,7 +10766,7 @@
 	(x-send-client-message):
 	* emulation/cua-base.el (x-clipboard-yank): Declare as functions.
-2007-11-22  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-11-22  Jan Djärv  <jan.h.d@swipnet.se>
 	* term/x-win.el (x-gtk-map-stock): Check if FILE is a string.
@@ -11672,7 +11679,7 @@
 	* emulation/tpu-mapper.el (tpu-map-key): Remove un-needed cond branch.
-2007-11-07  Johan Bockg$(Q)[(Brd  <bojohan@gnu.org>
+2007-11-07  Johan Bockgård  <bojohan@gnu.org>
 	* eshell/esh-mode.el (eshell-output-filter):
 	* eshell/esh-proc.el (eshell-insertion-filter, eshell-sentinel):
@@ -13339,7 +13346,7 @@
 	* help-fns.el (describe-function-1): Don't use the advice origname
 	if it has no function definition.
-2007-10-18  Johan Bockg$(Q)[(Brd  <bojohan@gnu.org>
+2007-10-18  Johan Bockgård  <bojohan@gnu.org>
 	* net/tramp.el (tramp-rfn-eshadow-update-overlay): Save excursion.
 	Use `save-restriction' rather than `widen'.
@@ -14042,7 +14049,7 @@
 	(bs--get-mode-name, bs-mode): Fix typos in docstrings.
 	(bs--format-aux): Doc fix.
-2007-10-08  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-10-08  Michaël Cadilhac  <michael@cadilhac.name>
 	* progmodes/gud.el (gud-gud-gdb-command-name): Fix typo in docstring.
@@ -14088,11 +14095,11 @@
 	* progmodes/gud.el (gud-display-line): Find source buffer even when
 	GUD buffer has its own frame.
-2007-10-08  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-10-08  Jan Djärv  <jan.h.d@swipnet.se>
 	* term/x-win.el (icon-map-list): Set to nil for 22.1 compatibility.
-2007-10-08  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-10-08  Jan Djärv  <jan.h.d@swipnet.se>
 	* term/x-win.el (x-gtk-stock-map): Version is 22.2.
@@ -14470,7 +14477,7 @@
 	* emacs-lisp/copyright.el (copyright-update): Don't update if the file
 	already uses a more recent copyright version than the "current" one.
-2007-10-03  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-10-03  Michaël Cadilhac  <michael@cadilhac.name>
 	* doc-view.el (doc-view-dvi->pdf-sentinel, doc-view-reset-slice)
 	(doc-view-insert-image): Minor aesthetical docstring changes.
@@ -14841,7 +14848,7 @@
 	* indent.el (indent-for-tab-command): First check if the region is
 	active.
-2007-09-24  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-09-24  Michaël Cadilhac  <michael@cadilhac.name>
 	* whitespace.el (whitespace-tickle-timer): Don't install the timer if
 	whitespace-rescan-timer-time is 0.
@@ -14961,7 +14968,7 @@
 	* indent.el (indent-for-tab-command): Indent the region if
 	transient-mark-mode and the region is active.
-2007-09-21  Francesco Potort$(Q)b(B  <pot@gnu.org>
+2007-09-21  Francesco Potortì  <pot@gnu.org>
 	* progmodes/octave-inf.el (inferior-octave-mode): Use add-hook to
 	add inferior-octave-directory-tracker to the buffer-local value
@@ -15125,7 +15132,7 @@
 	(browse-url-elinks-sentinel): Use browse-url-elinks-new-window.
 	Improve error message.
-2007-09-19  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-09-19  Michaël Cadilhac  <michael@cadilhac.name>
 	* net/browse-url.el (browse-url-url-encode-chars): Use the right
 	parameter name in the function body.
@@ -15161,7 +15168,7 @@
 	* newcomment.el (comment-add): New arg EXTRA.
 	(comment-region-default): Pass EXTRA if not indenting lines.
-2007-09-17  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-09-17  Michaël Cadilhac  <michael@cadilhac.name>
 	* net/browse-url.el (browse-url-url-encode-chars): New function.
 	URL-encode some chars in a string.
@@ -15210,7 +15217,7 @@
 	(move-beginning-of-line): Remove unused var `start'.
 	(blink-matching-open): Restructure in a more functional style.
-2007-09-16  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-09-16  Michaël Cadilhac  <michael@cadilhac.name>
 	* calendar/holidays.el (list-holidays): Remove the cyclic alias.
@@ -15368,7 +15375,7 @@
 	* term/rxvt.el (rxvt-function-map): Initialize in the declaration.
-2007-09-12  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-09-12  Michaël Cadilhac  <michael@cadilhac.name>
 	* net/browse-url.el (browse-url-encode-url): Fix an infinite loop.
 	New argument `filename-p' to use one set of confusing chars or another.
@@ -15411,7 +15418,7 @@
 2007-09-10  Thien-Thi Nguyen  <ttn@gnuvola.org>
 	* net/browse-url.el (browse-url-encode-url): Use copy-sequence.
-	Reported by Jan Dj$(Q)Z(Brv <jan.h.d@swipnet.se>.
+	Reported by Jan Djärv <jan.h.d@swipnet.se>.
 2007-09-10  Dave Love  <fx@gnu.org>
@@ -15419,7 +15426,7 @@
 	Move font-lock-builtin-face down from 4 to 7 to better keep the
 	progression of color brightness, and to better match Org-mode's faces.
-2007-09-10  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-09-10  Michaël Cadilhac  <michael@cadilhac.name>
 	* progmodes/meta-mode.el (meta-font-lock-keywords)
 	(font-lock-match-meta-declaration-item-and-skip-to-next)
@@ -15587,7 +15594,7 @@
 	* vc-arch.el (vc-arch-checkin): Fix typo.
-2007-09-07  Johan Bockg$(Q)[(Brd  <bojohan@gnu.org>
+2007-09-07  Johan Bockgård  <bojohan@gnu.org>
 	* cus-face.el (custom-theme-set-faces): Set face attributes
 	locally for each frame.
@@ -15656,7 +15663,7 @@
 	* complete.el (PC-do-completion): Don't try to treat
 	empty string as an abbreviation.
-2007-09-06  Johan Bockg$(Q)[(Brd  <bojohan@dd.chalmers.se>
+2007-09-06  Johan Bockgård  <bojohan@dd.chalmers.se>
 	* help-fns.el (describe-variable): Keep doc's text properties.
@@ -15683,7 +15690,7 @@
 	(normal-no-mouse-startup-screen): New fn, broken out.
 	(normal-about-screen): New function, contents all new.
-2007-09-05  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-09-05  Michaël Cadilhac  <michael@cadilhac.name>
 	* emacs-lisp/rx.el (rx): Fix typo in docstring.
@@ -15692,7 +15699,7 @@
 	* cus-edit.el (custom-buffer-create-internal): Check tool-bar-mode
 	is bound.
-2007-09-05  Johan Bockg$(Q)[(Brd  <bojohan@dd.chalmers.se>
+2007-09-05  Johan Bockgård  <bojohan@dd.chalmers.se>
 	* emacs-lisp/advice.el (ad-make-advised-docstring): Highlight note
 	in doc string.
@@ -15764,7 +15771,7 @@
 	(terminal-init-xterm): Use it.  Deal with delete-frame hook.
 	Add the selected frame to xterm-modify-other-keys-terminal-list.
-2007-09-02  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-09-02  Jan Djärv  <jan.h.d@swipnet.se>
 	* term/x-win.el (x-gtk-stock-map): Map diropen to system-file-manager.
 	(icon-map-list): New variable.
@@ -15810,7 +15817,7 @@
 	* vc-svn.el (vc-svn-diff-tree): Pass a list to vc-svn-diff.
-2007-08-31  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-08-31  Michaël Cadilhac  <michael@cadilhac.name>
 	* textmodes/flyspell.el (flyspell-mark-duplications-exceptions):
 	New variable.  List of exceptions for the duplicated word rule.
@@ -15820,7 +15827,7 @@
 	* files.el (create-file-buffer): If the filename sans directory starts
 	with spaces, remove them.
-2007-08-31  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-08-31  Jan Djärv  <jan.h.d@swipnet.se>
 	* term/x-win.el (x-gtk-stock-map): Add etc/images to keys.
 	(x-gtk-map-stock): Use two directory elements when matching
@@ -15927,7 +15934,7 @@
 	* version.el (emacs-version): Increase to 23.0.50.
-2007-08-29  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-08-29  Jan Djärv  <jan.h.d@swipnet.se>
 	* term/x-win.el (x-gtk-stock-map): :version changed to 23.1.
@@ -15983,7 +15990,7 @@
 	* env.el (getenv): Pass frame to getenv-internal.
-2007-08-29  K$(Q)W(Broly L$(Q*S(Brentey  <lorentey@elte.hu>
+2007-08-29  Károly Lőrentey  <lorentey@elte.hu>
 	* version.el (emacs-version): Show if multi-tty is present.
@@ -16284,7 +16291,7 @@
 	(display-time-world-timer-second, display-time-world-mode-map):
 	New variables.
-2007-08-28  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-08-28  Jan Djärv  <jan.h.d@swipnet.se>
 	* term/x-win.el (x-gtk-stock-map): New variable.
 	(x-gtk-map-stock): New function.
@@ -16292,7 +16299,7 @@
 	* info.el (info-tool-bar-map): Add :rtl keyword to right/left-arrow and
 	prev/next-node.
-2007-08-28  Johan Bockg$(Q)[(Brd  <bojohan@dd.chalmers.se>  (tiny change)
+2007-08-28  Johan Bockgård  <bojohan@dd.chalmers.se>  (tiny change)
 	* play/gamegrid.el (gamegrid-init): Set line-spacing to 0.
@@ -16392,7 +16399,7 @@
 	* vc.el (vc-annotate-warp-version): Don't use previous-line.
-2007-08-27  Johan Bockg$(Q)[(Brd  <bojohan@dd.chalmers.se>
+2007-08-27  Johan Bockgård  <bojohan@dd.chalmers.se>
 	* net/browse-url.el (browse-url-emacs): New function.
@@ -16400,7 +16407,7 @@
 	* emacs-lisp/avl-tree.el: New file.
-2007-08-26  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-08-26  Michaël Cadilhac  <michael@cadilhac.name>
 	* hi-lock.el (hi-lock-unface-buffer): Show a x-menu only if the mouse
 	was used.
@@ -16848,7 +16855,7 @@
 	undo-list when setting syntax-table properties.
 	(ada-after-change-function): Use ada-set-syntax-table-properties.
-2007-08-18  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-08-18  Michaël Cadilhac  <michael@cadilhac.name>
 	* progmodes/meta-mode.el (meta-indent-calculate-last): Remove.
 	(meta-indent-current-nesting): Use a computation of the nesting
@@ -16901,7 +16908,7 @@
 	(cperl-find-pods-heres): Fix an error when typing expressions like
 	`s{a}{b}'.
-2007-08-17  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-08-17  Michaël Cadilhac  <michael@cadilhac.name>
 	* mail/emacsbug.el (report-emacs-bug): Remove the last number of
 	`emacs-version', use the topic prefix ``version; ''.  Make MS-DOS
@@ -16992,7 +16999,7 @@
 	sloppier, for the sake of GNU Mailman.
 	(rmail-digest-rfc1153): Initialize `result' correctly.
-2007-08-15  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-08-15  Michaël Cadilhac  <michael@cadilhac.name>
 	* mail/emacsbug.el (report-emacs-bug): Put `Bug: emacs-version; '
 	in the mail title.  Suggested by Reiner Steib.
@@ -18091,7 +18098,7 @@
 	* net/trampver.el: Update release number.
-2007-07-22  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-07-22  Jan Djärv  <jan.h.d@swipnet.se>
 	* startup.el (command-line-x-option-alist): Use x-handle-no-bitmap-icon.
@@ -18736,7 +18743,7 @@
 	* isearch.el (isearch-edit-string): Call to isearch-push-state
 	after the search.
-2007-07-09  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-07-09  Jan Djärv  <jan.h.d@swipnet.se>
 	* window.el (fit-window-to-buffer): Remove setting of window-min-height
 	to 1 as enlarge-window uses the value to resize/shrink windows other
@@ -19115,7 +19122,7 @@
 	* font-lock.el (lisp-font-lock-keywords-2): Recognize the new \(?1:..\)
 	syntax as well.  Reported by Juri Linkov <juri@jurta.org>.
-2007-06-28  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-06-28  Jan Djärv  <jan.h.d@swipnet.se>
 	* dnd.el (dnd-get-local-file-name): Set fixcase to t in call to
 	replace-regexp-in-string.
@@ -19728,7 +19735,7 @@
 	* diff-mode.el (diff-font-lock-keywords): Fix M. Kifer's last change.
-2007-06-13  Johan Bockg$(Q)[(Brd  <bojohan@dd.chalmers.se>  (tiny change)
+2007-06-13  Johan Bockgård  <bojohan@dd.chalmers.se>  (tiny change)
 	* term/xterm.el (terminal-init-xterm): Escape parens in character
 	constants.
@@ -19907,7 +19914,7 @@
 	* emacs-lisp/bytecomp.el (byte-compile-find-cl-functions):
 	Match against file-name-nondirectory.
 	Fix text on user customization variables.
-	Reported by Johan Bockg$(Q)[(Brd <bojohan@dd.chalmers.se>.
+	Reported by Johan Bockgård <bojohan@dd.chalmers.se>.
 2007-06-09  Alfred M. Szmidt  <ams@gnu.org>  (tiny change)
@@ -20305,7 +20312,7 @@
 	* files.el (set-auto-mode): Doc fix.
-2007-05-22  Jan Dj$(Q)Z(Brv  <jan.h.d@swipnet.se>
+2007-05-22  Jan Djärv  <jan.h.d@swipnet.se>
 	* help-fns.el (find-source-lisp-file): New function.
 	(describe-function-1): Use find-source-lisp-file to find source
@@ -20513,7 +20520,7 @@
 	* dabbrev.el (dabbrev-eliminate-newlines):
 	Renamed from dabbrev--eliminate-newlines.  All uses changed.
-2007-05-10  Micha$(Q)a(Bl Cadilhac  <michael@cadilhac.name>
+2007-05-10  Michaël Cadilhac  <michael@cadilhac.name>
 	* man.el (Man-next-section): Don't consider the last line of the page
 	as being part of any section.
@@ -20696,14 +20703,14 @@
 	* image-dired.el (image-dired-display-image): Derive image-type from
 	filename rather than assuming jpeg, in case no resizing was needed.
-2007-04-25  Johan Bockg$(Q)[(Brd  <bojohan@dd.chalmers.se>
+2007-04-25  Johan Bockgård  <bojohan@dd.chalmers.se>
 	* custom.el (defface): Doc fix.
 See ChangeLog.12 for earlier changes.
 ;; Local Variables:
-;; coding: iso-2022-7bit
+;; coding: utf-8
 ;; add-log-time-zone-rule: t
 ;; End:

lisp/international/mule-conf.el

@@ -159,7 +159,6 @@
 	   :long-name (format "RHP of %s (%s)" ,name ,nickname)
 	   :iso-final-char ,iso-final
 	   :emacs-mule-id ,emacs-mule-id
-	   :supplementary-p t
 	   :code-space [32 127]
 	   :subset (list ,symbol 160 255 -128)))))
 
@@ -1511,11 +1510,6 @@ for decoding and encoding files, process I/O, etc."
 (aset latin-extra-code-table ?\225 t)
 (aset latin-extra-code-table ?\226 t)
 
-;; Move least specific charsets to end of priority list
-
-(apply #'set-charset-priority
-       (delq 'unicode (delq 'emacs (charset-priority-list))))
-
 ;; The old code-pages library is obsoleted by coding systems based on
 ;; the charsets defined in this file but might be required by user
 ;; code.