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))))) |