# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1021666551 0
# Node ID 23939ff55df7f464b300ec39dabdf95ac1c5819c
# Parent  2508448a287edb611ec5a4aba49cc5557943e8a3
("UTF-8"): Use utf-8, not mule-utf-8.
Remove setup function.

diff -r 2508448a287e -r 23939ff55df7 lisp/language/utf-8-lang.el
--- a/lisp/language/utf-8-lang.el	Fri May 17 20:14:36 2002 +0000
+++ b/lisp/language/utf-8-lang.el	Fri May 17 20:15:51 2002 +0000
@@ -27,14 +27,15 @@
 ;;; Code:
 
 (set-language-info-alist
- "UTF-8" `((coding-system mule-utf-8)
-	   (coding-priority mule-utf-8)
-	   (setup-function
-	    . (lambda ()
-		;; Use Unicode font under Windows.  Jason Rumney fecit.
-		(if (and (fboundp 'w32-add-charset-info)
-			 (not (boundp 'w32-unicode-charset-defined)))
-		    (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))))
+ "UTF-8" `((coding-system utf-8)
+	   (coding-priority utf-8)
+;; Presumably not relevant now.
+;; 	   (setup-function
+;; 	    . (lambda ()
+;; 		;; Use Unicode font under Windows.  Jason Rumney fecit.
+;; 		(if (and (fboundp 'w32-add-charset-info)
+;; 			 (not (boundp 'w32-unicode-charset-defined)))
+;; 		    (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))))
 ;; Is this appropriate?
 ;; 	   (exit-function
 ;; 	    . (lambda ()
@@ -45,8 +46,8 @@
 ;; 				  w32-charset-info-alist)))))
 	   (input-method . "rfc1345")	; maybe not the best choice
 	   (documentation . "\
-This language environment is a generic one for a subset of the Unicode
-character set encoded in UTF-8."))
+This language environment is a generic one for the Unicode character set
+encoded in UTF-8."))
  nil)
 
 (provide 'utf-8-lang)