Commit d775b378 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(select-safe-coding-system): Cope if default-coding-system gives nil

which was then used in `min'.
parent c86237b2
2002-09-22 Richard M. Stallman <rms@gnu.org>
* international/mule-cmds.el (select-safe-coding-system): Cope if
default-coding-system gives nil which was then used in `min'.
* mail/sendmail.el (sendmail-send-it): If user's buffer
is unibyte, make tembuf unibyte.
2002-09-22 Kai Gro,b_(Bjohann <grossjoh@ls6.informatik.uni-dortmund.de>
* net/tramp.el: Version 2.0.22 released.
......
......@@ -723,9 +723,10 @@ and TO is ignored."
(let ((window-configuration (current-window-configuration)))
(save-excursion
;; Make sure the offending buffer is displayed.
(when (and default-coding-system (not (stringp from)))
(when (and (consp default-coding-system) (not (stringp from)))
(pop-to-buffer bufname)
(goto-char (apply 'min (mapcar #'(lambda (x) (car (cadr x)))
;; The `or' is because sometimes (car (cadr x)) is nil.
(goto-char (apply 'min (mapcar #'(lambda (x) (or (car (cadr x)) (point-max)))
default-coding-system))))
;; Then ask users to select one from CODINGS.
(with-output-to-temp-buffer "*Warning*"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment