Show
Ignore:
Timestamp:
07/16/06 08:36:52 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/international/mule.el

    r4098 r4111  
    11;;; mule.el --- basic commands for mulitilingual environment 
    22 
    3 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 
     3;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006 
    44;;   Free Software Foundation, Inc. 
    55;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005 
    …… 
    284284 
    285285(put 'make-char 'byte-compile 
    286      (function 
    287       (lambda (form) 
    288         (let ((charset (nth 1 form))) 
    289           (if (charset-quoted-standard-p charset) 
    290               (byte-compile-normal-call 
    291                (cons 'make-char-internal 
    292                      (cons (charset-id (nth 1 charset)) (nthcdr 2 form)))) 
    293             (byte-compile-normal-call 
    294              (cons 'make-char-internal 
    295                    (cons (list 'charset-id charset) (nthcdr 2 form))))))))) 
     286     (lambda (form) 
     287       (let ((charset (nth 1 form))) 
     288         (byte-compile-normal-call 
     289          (cons 'make-char-internal 
     290                (cons (if (charset-quoted-standard-p charset) 
     291                          (charset-id (nth 1 charset)) 
     292                        (list 'charset-id charset)) 
     293                      (nthcdr 2 form))))))) 
    296294 
    297295(defun charset-list () 
    …… 
    23022300(provide 'mule) 
    23032301 
    2304 ;;; arch-tag: 9aebaa6e-0e8a-40a9-b857-cb5d04a39e7c 
     2302;; arch-tag: 9aebaa6e-0e8a-40a9-b857-cb5d04a39e7c 
    23052303;;; mule.el ends here