diff options
| author | Richard M. Stallman | 1998-08-14 09:02:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-08-14 09:02:48 +0000 |
| commit | 902e3f7798d6fb73020ac7b4c714e5c77eb51ffc (patch) | |
| tree | 86a61049e6f12b672403c92b224f7655e276c138 | |
| parent | 55c3534be02d9220505683273dba128ff1ec0ce3 (diff) | |
| download | emacs-902e3f7798d6fb73020ac7b4c714e5c77eb51ffc.tar.gz emacs-902e3f7798d6fb73020ac7b4c714e5c77eb51ffc.zip | |
(select-safe-coding-system): If default-coding-system is no-conversion,
return that; it is always safe.
| -rw-r--r-- | lisp/international/mule-cmds.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index abda95f64dd..f075a5affbc 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -378,6 +378,7 @@ and TO is ignored." | |||
| 378 | (find-charset-region from to))) | 378 | (find-charset-region from to))) |
| 379 | (safe-coding-systems (find-coding-systems-for-charsets charsets))) | 379 | (safe-coding-systems (find-coding-systems-for-charsets charsets))) |
| 380 | (if (or (eq (car safe-coding-systems) 'undecided) | 380 | (if (or (eq (car safe-coding-systems) 'undecided) |
| 381 | (eq default-coding-system 'no-conversion) | ||
| 381 | (and default-coding-system | 382 | (and default-coding-system |
| 382 | (memq (coding-system-base default-coding-system) | 383 | (memq (coding-system-base default-coding-system) |
| 383 | safe-coding-systems))) | 384 | safe-coding-systems))) |