Skip site navigation (1)Skip section navigation (2)
Date:      Wed, 26 Oct 2005 22:07:20 +0900 (JST)
From:      NIIMI Satoshi <sa2c@sa2c.net>
To:        FreeBSD-gnats-submit@FreeBSD.org
Subject:   ports/88032: PATCH: converters/mule-cs: coding categories are not set properly
Message-ID:  <20051026130720.E5B921145C@berkeley.l.sa2c.net>
Resent-Message-ID: <200510261310.j9QDAHHj011860@freefall.freebsd.org>

next in thread | raw e-mail | index | archive | help

>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@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:



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20051026130720.E5B921145C>