Parent Directory | Revision Log | Patch
revision 1.280 by rms, Sun Dec 16 18:27:51 2001 UTC | revision 1.281 by rms, Tue Dec 25 17:15:14 2001 UTC | |
---|---|---|
# | Line 698 or `CVS', and any subdirectory that cont | Line 698 or `CVS', and any subdirectory that cont |
698 | ||
699 | (set-locale-environment nil) | (set-locale-environment nil) |
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 | ||
708 | (let ((done nil) | (let ((done nil) |
709 | (args (cdr command-line-args))) | (args (cdr command-line-args))) |
710 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |