Mercurial > emacs

changeset 71676:6930c75732b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-char): Remove redundancy.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 07 Jul 2006 16:38:17 +0000
parents e5f36608288b
children de59660f0a51
files lisp/ChangeLog lisp/international/mule.el
diffstat 2 files changed, 12 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Jul 07 16:36:29 2006 +0000
+++ b/lisp/ChangeLog	Fri Jul 07 16:38:17 2006 +0000
@@ -1,5 +1,7 @@
 2006-07-07  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* international/mule.el (make-char): Remove redundancy.
+
 	* emacs-lisp/bytecomp.el (byte-compile-form): The `byte-compile'
 	property may contain an anonymous function rather than a symbol.
 
--- a/lisp/international/mule.el	Fri Jul 07 16:36:29 2006 +0000
+++ b/lisp/international/mule.el	Fri Jul 07 16:38:17 2006 +0000
@@ -1,6 +1,6 @@
 ;;; mule.el --- basic commands for mulitilingual environment
 
-;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
+;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006
 ;;   Free Software Foundation, Inc.
 ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
@@ -283,16 +283,14 @@
   (make-char-internal (charset-id charset) code1 code2))
 
 (put 'make-char 'byte-compile
-     (function
-      (lambda (form)
-	(let ((charset (nth 1 form)))
-	  (if (charset-quoted-standard-p charset)
-	      (byte-compile-normal-call
-	       (cons 'make-char-internal
-		     (cons (charset-id (nth 1 charset)) (nthcdr 2 form))))
-	    (byte-compile-normal-call
-	     (cons 'make-char-internal
-		   (cons (list 'charset-id charset) (nthcdr 2 form)))))))))
+     (lambda (form)
+       (let ((charset (nth 1 form)))
+         (byte-compile-normal-call
+          (cons 'make-char-internal
+                (cons (if (charset-quoted-standard-p charset)
+                          (charset-id (nth 1 charset))
+                        (list 'charset-id charset))
+                      (nthcdr 2 form)))))))
 
 (defun charset-list ()
   "Return list of charsets ever defined.
@@ -2301,5 +2299,5 @@
 ;;;
 (provide 'mule)
 
-;;; arch-tag: 9aebaa6e-0e8a-40a9-b857-cb5d04a39e7c
+;; arch-tag: 9aebaa6e-0e8a-40a9-b857-cb5d04a39e7c
 ;;; mule.el ends here