ports/88032: PATCH: converters/mule-cs: coding categories are not set properly

[NIIMI Satoshi]

>Number:         88032
>Category:       ports
>Synopsis:       PATCH: converters/mule-cs: coding categories are not set properly
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Wed Oct 26 13:10:17 GMT 2005
>Closed-Date:
>Last-Modified:
>Originator:     NIIMI Satoshi
>Release:        FreeBSD 6.0-RC1 i386
>Organization:
>Environment:
System: FreeBSD berkeley.l.sa2c.net 6.0-RC1 FreeBSD 6.0-RC1 #1: Sun Oct 23 11:38:24 JST 2005 root at berkeley.l.sa2c.net:/usr/obj/usr/src/sys/GENERIC i386


	
>Description:
un-define.el tries to get list of coding categories but it's too early.
	
>How-To-Repeat:
Start emacs as:
emacs -q --eval "(require 'un-define) (set-language-environment 'Japanese)"
and type M-x describe-variable RET coding-category-utf-8 RET
The value is mule-utf-8, not utf-8.
	
>Fix:

	

--- mule-ucs.diff begins here ---
Index: files/patch-lisp:un-define.el
===================================================================
RCS file: files/patch-lisp:un-define.el
diff -N files/patch-lisp:un-define.el
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ files/patch-lisp:un-define.el	26 Oct 2005 12:55:39 -0000
@@ -0,0 +1,24 @@
+--- lisp/un-define.el.orig	Sat Jan 11 15:17:56 2003
++++ lisp/un-define.el	Wed Oct 26 21:54:59 2005
+@@ -875,6 +875,7 @@
+      'unicode-font-encoder 'unicode-font-encoder))
+ 
+ ;;; coding-category setup
++(defun un-define-setup-coding-category ()
+ (let (category-list)
+ ;; set up coding-category
+   (if (boundp 'coding-category-utf-8)
+@@ -893,10 +894,9 @@
+   (if category-list
+       (progn
+ 	(set-coding-priority
+-	 category-list)
+-	(add-hook 'set-language-environment-hook
+-		  `(lambda ()
+-		     (set-coding-priority (quote ,category-list)))))))
++	 category-list)))))
++(un-define-setup-coding-category)
++(add-hook 'set-language-environment-hook #'un-define-setup-coding-category)
+ 
+ ;
+ ; Charset order dynamic modification. (Very simple version!)
--- mule-ucs.diff ends here ---


>Release-Note:
>Audit-Trail:
>Unformatted: