diff options
| author | Richard M. Stallman <rms@gnu.org> | 2001-12-25 17:15:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2001-12-25 17:15:14 +0000 |
| commit | c16eb7b010a5350ded4a4561e7b7c496b4bbeece (patch) | |
| tree | b693dba5830a960078a00fa2822ce0c4bcf275be /lisp/startup.el | |
| parent | da3ab9c77162ff131c184d337ee4800fa2a87257 (diff) | |
| download | emacs-c16eb7b010a5350ded4a4561e7b7c496b4bbeece.tar.gz | |
(command-line): Convert command line args
to Emacs internal representation using locale-coding-system.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index f9b2c2633d1..ef609e0f798 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -698,6 +698,13 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (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))) |