diff options
| author | Richard M. Stallman | 1997-09-15 06:10:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-15 06:10:22 +0000 |
| commit | b55dd0a7ba14091156f970abcd70f023fec4ed7d (patch) | |
| tree | b29770e3ef79d1bf8b1e4692a19405eec76ba33b | |
| parent | 749992b811c9b390dacc27ba8c5cec42fcb4d382 (diff) | |
| download | emacs-b55dd0a7ba14091156f970abcd70f023fec4ed7d.tar.gz emacs-b55dd0a7ba14091156f970abcd70f023fec4ed7d.zip | |
(coding-system-unification-table-for-encode): Recurse properly.
(coding-system-unification-table-for-decode): Recurse properly.
| -rw-r--r-- | lisp/international/mule-util.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el index 6820407135b..7fba1d653a0 100644 --- a/lisp/international/mule-util.el +++ b/lisp/international/mule-util.el | |||
| @@ -254,7 +254,7 @@ coding-spec (see the function `make-coding-system')." | |||
| 254 | (and coding-system | 254 | (and coding-system |
| 255 | (symbolp coding-system) | 255 | (symbolp coding-system) |
| 256 | (or (get coding-system 'unification-table-for-decode) | 256 | (or (get coding-system 'unification-table-for-decode) |
| 257 | (coding-system-unification-table | 257 | (coding-system-unification-table-for-decode |
| 258 | (get coding-system 'coding-system))))) | 258 | (get coding-system 'coding-system))))) |
| 259 | 259 | ||
| 260 | ;;;###autoload | 260 | ;;;###autoload |
| @@ -263,7 +263,7 @@ coding-spec (see the function `make-coding-system')." | |||
| 263 | (and coding-system | 263 | (and coding-system |
| 264 | (symbolp coding-system) | 264 | (symbolp coding-system) |
| 265 | (or (get coding-system 'unification-table-for-encode) | 265 | (or (get coding-system 'unification-table-for-encode) |
| 266 | (coding-system-unification-table | 266 | (coding-system-unification-table-for-encode |
| 267 | (get coding-system 'coding-system))))) | 267 | (get coding-system 'coding-system))))) |
| 268 | 268 | ||
| 269 | (defun coding-system-lessp (x y) | 269 | (defun coding-system-lessp (x y) |