# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1009300514 0
# Node ID 22bb1392751f9c9efdaa9b48177ed6904c08c2e1
# Parent  92dd5e5c1d0812e08a8b2b6fa5ced9290a86ecb3
(command-line): Convert command line args
to Emacs internal representation using locale-coding-system.

diff -r 92dd5e5c1d08 -r 22bb1392751f lisp/startup.el
--- a/lisp/startup.el	Tue Dec 25 17:15:00 2001 +0000
+++ b/lisp/startup.el	Tue Dec 25 17:15:14 2001 +0000
@@ -698,6 +698,13 @@
 
   (set-locale-environment nil)
 
+  ;; Convert the arguments to Emacs internal representation.
+  (let ((args (cdr command-line-args)))
+    (while args
+      (setcar args
+	      (decode-coding-string (car args) locale-coding-system t))
+      (setq args (cdr args))))
+
   (let ((done nil)
 	(args (cdr command-line-args)))