(coding-system-mnemonic): Don't crash if arg is nil.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 438839479ba7ff0804146c5f9d8b3ce68a109290..b085b90b70f1348e80e75e0bb1f7d2da30e59a92 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -364,10 +364,10 @@ of CODING-SYSTEM.  See the function `make-coding-system' for more detail."
 
 (defun coding-system-mnemonic (coding-system)
   "Return the mnemonic character of CODING-SYSTEM.
-A mnemonic character of a coding system is used in mode line
-to indicate the coding system."
-  (or (aref (coding-system-spec coding-system) coding-spec-mnemonic-idx)
-      ?-))
+The mnemonic character of a coding system is used in mode line
+to indicate the coding system.  If the arg is nil, return ?-."
+  (let ((spec (coding-system-spec coding-system)))
+    (if spec (aref spec coding-spec-mnemonic-idx) ?-)))
 
 (defun coding-system-doc-string (coding-system)
   "Return the documentation string for CODING-SYSTEM."