Mercurial > hg > xemacs-beta

diff lisp/mule/japanese.el @ 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 2923009caf47
children 402bf23dd28f
line wrap: on
line diff
--- 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)