/[emacs]/emacs/lisp/international/mule-diag.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-diag.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.68.2.19 by handa, Fri Jan 10 07:25:31 2003 UTC revision 1.68.2.20 by handa, Tue Jan 21 08:30:08 2003 UTC
# Line 254  detailed meanings of these arguments." Line 254  detailed meanings of these arguments."
254        (setq ch (cond ((< i min)        (setq ch (cond ((< i min)
255                        32)                        32)
256                       ((charsetp charset)                       ((charsetp charset)
257                        (condition-case nil                        (or (decode-char charset (+ (* row 256) i))
258                            (if (= row 0)                            32))          ; gap in mapping
                               (make-char charset i)  
                             (make-char charset row i))  
                         (error 32)))    ; gap in mapping  
259                       ((and (symbolp charset) (get charset 'translation-table))                       ((and (symbolp charset) (get charset 'translation-table))
260                        (aref (get charset 'translation-table) i))                        (aref (get charset 'translation-table) i))
261                       (t (funcall charset (+ (* row 256) i)))))                       (t (funcall charset (+ (* row 256) i)))))

Legend:
Removed from v.1.68.2.19  
changed lines
  Added in v.1.68.2.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26