# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1032740415 0
# Node ID eb43274136af38bd534d9951864a15e9557d9824
# Parent  d5e1e2adcb67f31b41979ed00912c00ae5db4ea3
(select-safe-coding-system): Cope if default-coding-system gives nil
which was then used in `min'.

diff -r d5e1e2adcb67 -r eb43274136af lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Mon Sep 23 00:17:51 2002 +0000
+++ b/lisp/international/mule-cmds.el	Mon Sep 23 00:20:15 2002 +0000
@@ -723,9 +723,10 @@
       (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*"