diff options
| author | Eli Zaretskii | 2013-06-30 17:27:07 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2013-06-30 17:27:07 +0300 |
| commit | 0865d506b58bd49932ec8eed0c6e486d2dfd8bb1 (patch) | |
| tree | 74357cae5831016afd711615121640b50aed60a0 | |
| parent | 2fae38e5f99f51a8b316e12bd4607a5ec10d5f88 (diff) | |
| download | emacs-0865d506b58bd49932ec8eed0c6e486d2dfd8bb1.tar.gz emacs-0865d506b58bd49932ec8eed0c6e486d2dfd8bb1.zip | |
Fix bug #14755 which prevented autoloads from being computed.
lisp/international/mule-cmds.el (select-safe-coding-system): Handle
the case of FROM being a string correctly.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/international/mule-cmds.el | 5 |
2 files changed, 9 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4aa4f37a323..283b948a2db 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2013-06-30 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * international/mule-cmds.el (select-safe-coding-system): Handle | ||
| 4 | the case of FROM being a string correctly. (Bug#14755) | ||
| 5 | |||
| 1 | 2013-06-30 Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 | 2013-06-30 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 2 | 7 | ||
| 3 | * net/shr.el (shr-make-table-1): Add a sanity check that allows | 8 | * net/shr.el (shr-make-table-1): Add a sanity check that allows |
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 6ef7709e930..62b96720771 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -1031,7 +1031,10 @@ and try again)? " coding-system auto-cs)) | |||
| 1031 | (error "Canceled because the buffer was modified")) | 1031 | (error "Canceled because the buffer was modified")) |
| 1032 | (if (and (eq (coding-system-type coding-system) 'undecided) | 1032 | (if (and (eq (coding-system-type coding-system) 'undecided) |
| 1033 | (coding-system-get coding-system :prefer-utf-8) | 1033 | (coding-system-get coding-system :prefer-utf-8) |
| 1034 | (< (- to from) (- (position-bytes to) (position-bytes from)))) | 1034 | (or (multibyte-string-p from) |
| 1035 | (and (number-or-marker-p from) | ||
| 1036 | (< (- to from) | ||
| 1037 | (- (position-bytes to) (position-bytes from)))))) | ||
| 1035 | (setq coding-system | 1038 | (setq coding-system |
| 1036 | (coding-system-change-text-conversion coding-system 'utf-8))) | 1039 | (coding-system-change-text-conversion coding-system 'utf-8))) |
| 1037 | coding-system))) | 1040 | coding-system))) |