X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fminibuf.el;h=0061576b82649c2d250738253a70bcce734085cd;hb=afc391781b1eb4961172bbf0c872aafc46341da6;hp=6e8b6cdecb0345065b9d9d567738791588fd0592;hpb=ffa126d10c3464a5e7c42a300b4b3dc3a6cd19b8;p=chise%2Fxemacs-chise.git

diff --git a/lisp/minibuf.el b/lisp/minibuf.el
index 6e8b6cd..0061576 100644
--- a/lisp/minibuf.el
+++ b/lisp/minibuf.el
@@ -2117,8 +2117,8 @@ On mswindows devices, this uses `mswindows-color-list'."
   "Read a coding-system (or nil) from the minibuffer.
 Prompting with string PROMPT.
 If the user enters null input, return second argument DEFAULT-CODING-SYSTEM."
-  (completing-read prompt obarray 'find-coding-system t nil nil 
-		   default-coding-system))
+  (intern (completing-read prompt obarray 'find-coding-system t nil nil 
+			   default-coding-system)))
 
 (defun read-non-nil-coding-system (prompt)
   "Read a non-nil coding-system from the minibuffer.