[Emacs-diffs] Changes to emacs/lisp/international/mule.el

[Dave Love]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.137 
emacs/lisp/international/mule.el:1.138
*** emacs/lisp/international/mule.el:1.137      Tue Dec 11 19:12:09 2001
--- emacs/lisp/international/mule.el    Wed Dec 12 14:55:31 2001
***************
*** 1,8 ****
  ;;; mule.el --- basic commands for mulitilingual environment
  
  ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
- ;; Copyright (C) 2001 Free Software Foundation, Inc.
  ;; Licensed to the Free Software Foundation.
  
  ;; Keywords: mule, multilingual, character set, coding system
  
--- 1,8 ----
  ;;; mule.el --- basic commands for mulitilingual environment
  
  ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
  ;; Licensed to the Free Software Foundation.
+ ;; Copyright (C) 2001 Free Software Foundation, Inc.
  
  ;; Keywords: mule, multilingual, character set, coding system
  
***************
*** 1653,1670 ****
  
  (defun make-translation-table-from-vector (vec)
    "Make translation table from decoding vector VEC.
! VEC is an array of 256 elements to map unibyte codes to multibyte characters.
  See also the variable `nonascii-translation-table'."
    (let ((table (make-char-table 'translation-table))
        (rev-table (make-char-table 'translation-table))
-       (i 0)
        ch)
!     (while (< i 256)
        (setq ch (aref vec i))
!       (aset table i ch)
!       (if (>= ch 256)
!         (aset rev-table ch i))
!       (setq i (1+ i)))
      (set-char-table-extra-slot table 0 rev-table)
      table))
  
--- 1653,1670 ----
  
  (defun make-translation-table-from-vector (vec)
    "Make translation table from decoding vector VEC.
! VEC is an array of 256 elements to map unibyte codes to multibyte
! characters.  Elements may be nil for undefined code points.
  See also the variable `nonascii-translation-table'."
    (let ((table (make-char-table 'translation-table))
        (rev-table (make-char-table 'translation-table))
        ch)
!     (dotimes (i 256)
        (setq ch (aref vec i))
!       (when ch
!       (aset table i ch)
!       (if (>= ch 256)
!           (aset rev-table ch i))))
      (set-char-table-extra-slot table 0 rev-table)
      table))