projects / chise / xemacs-chise.git.1 / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
XEmacs 21.2.18 "Toshima".
[chise/xemacs-chise.git.1] / lisp / mule / mule-misc.el
diff --git a/lisp/mule/mule-misc.el b/lisp/mule/mule-misc.el
index 8de1883..5311b24 100644 (file)
--- a/lisp/mule/mule-misc.el
+++ b/lisp/mule/mule-misc.el
@@ -212,6 +212,7 @@ because its `find-charset-string' ignores ASCII charset."
   "Return the octet numbered N (should be 0 or 1) of char CH.
 N defaults to 0 if omitted."
   (let ((split (split-char ch)))
+    (setq n (or n 0))
     (cond ((eq n 0)
           (nth 1 split))
          ((eq n 1)