Mercurial > emacs
changeset 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 | 92dd5e5c1d08 |
| children | 27e95b67fefb |
| files | lisp/startup.el |
| diffstat | 1 files changed, 7 insertions(+), 0 deletions(-) [+] |
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)))