Mercurial > hg > xemacs-beta

changeset 810:0f42d0a17667

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-04-07 17:10:48 by daiki] * mule/japanese.el: Don't quote function expressions listed as `native-coding-system'. * mule/chinese.el: Likewise.
author daiki
date Sun, 07 Apr 2002 17:10:50 +0000
parents 285f13b079f3
children 7778a469a8ac
files lisp/ChangeLog lisp/mule/chinese.el lisp/mule/japanese.el
diffstat 3 files changed, 12 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Apr 07 16:01:32 2002 +0000
+++ b/lisp/ChangeLog	Sun Apr 07 17:10:50 2002 +0000
@@ -1,3 +1,9 @@
+2002-03-19  Daiki Ueno  <daiki@xemacs.org>
+
+	* mule/japanese.el: Don't quote function expressions listed as
+	`native-coding-system'.
+	* mule/chinese.el: Likewise.
+
 2002-04-05  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* XEmacs 21.5.6 "bok choi" is released.
--- a/lisp/mule/chinese.el	Sun Apr 07 16:01:32 2002 +0000
+++ b/lisp/mule/chinese.el	Sun Apr 07 17:10:50 2002 +0000
@@ -326,7 +326,7 @@
 		(cygwin-locale "zh")
 		(locale "zh_CN.eucCN" "zh_CN.EUC" "zh_CN"
 			"chinese-s" "zh"
-			  #'(lambda (arg)
+			 (lambda (arg)
 			      (and arg (let ((case-fold-search t))
 					 (string-match "^zh_.*.GB.*" arg)))))
 		(mswindows-locale ("CHINESE" . "CHINESE_SIMPLIFIED"))
@@ -399,7 +399,7 @@
 		  (cygwin-locale "zh_TW")
 		  (locale "zh_TW.Big5" "zh_TW.big5" "zh_CN.big5" "zh_TW"
 			  "chinese-t"
-			  #'(lambda (arg)
+			  (lambda (arg)
 			      (and arg (let ((case-fold-search t))
 					 (string-match "^zh_.*.BIG5.*" arg)))))
 		  (mswindows-locale ("CHINESE" . "CHINESE_TRADITIONAL"))
--- a/lisp/mule/japanese.el	Sun Apr 07 16:01:32 2002 +0000
+++ b/lisp/mule/japanese.el	Sun Apr 07 17:10:50 2002 +0000
@@ -499,7 +499,7 @@
 
 	      (native-coding-system
 	       ;; first, see if an explicit encoding was given.
-	       #'(lambda (locale)
+	       (lambda (locale)
 		   (let ((case-fold-search t))
 		     (cond
 		      ;; many unix versions
@@ -521,21 +521,21 @@
 		      )))
 
 	       ;; aix (CJKV p. 465)
-	       #'(lambda (locale)
+	       (lambda (locale)
 		   (when (eq system-type 'aix)
 		     (cond
 		      ((string-match "^Ja_JP" locale) 'shift-jis)
 		      ((string-match "^ja_JP" locale) 'euc-jp))))
 
 	       ;; other X11R6 locale.alias
-	       #'(lambda (locale)
+	       (lambda (locale)
 		   (cond
 		    ((string-match "^Jp_JP" locale) 'euc-jp)
 		    ((and (eq system-type 'hpux) (eq locale "japanese"))
 		     'shift-jis)))
 
 	       ;; fallback
-	       'euc-jp)
+	       euc-jp)
 
 ;;	      (input-method . "japanese")
 	      (features japan-util)