diff options
| author | Richard M. Stallman | 2001-12-25 17:15:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2001-12-25 17:15:14 +0000 |
| commit | c16eb7b010a5350ded4a4561e7b7c496b4bbeece (patch) | |
| tree | b693dba5830a960078a00fa2822ce0c4bcf275be | |
| parent | da3ab9c77162ff131c184d337ee4800fa2a87257 (diff) | |
| download | emacs-c16eb7b010a5350ded4a4561e7b7c496b4bbeece.tar.gz emacs-c16eb7b010a5350ded4a4561e7b7c496b4bbeece.zip | |
(command-line): Convert command line args
to Emacs internal representation using locale-coding-system.
| -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'." | |||
| 698 | 698 | ||
| 699 | (set-locale-environment nil) | 699 | (set-locale-environment nil) |
| 700 | 700 | ||
| 701 | ;; Convert the arguments to Emacs internal representation. | ||
| 702 | (let ((args (cdr command-line-args))) | ||
| 703 | (while args | ||
| 704 | (setcar args | ||
| 705 | (decode-coding-string (car args) locale-coding-system t)) | ||
| 706 | (setq args (cdr args)))) | ||
| 707 | |||
| 701 | (let ((done nil) | 708 | (let ((done nil) |
| 702 | (args (cdr command-line-args))) | 709 | (args (cdr command-line-args))) |
| 703 | 710 | ||