Mercurial > emacs
diff lisp/startup.el @ 42332:22bb1392751f
(command-line): Convert command line args
to Emacs internal representation using locale-coding-system.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 25 Dec 2001 17:15:14 +0000 |
parents | 4dd93ea3bc4f |
children | 9186bd2795d1 |
line wrap: on
line diff
--- 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)))