diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-11-29 07:17:56 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-11-29 07:17:56 +0000 |
| commit | cea927edc867fb30a53dda7df937876b3fbb3d9b (patch) | |
| tree | 199f8d4db872af888179a76f384d162b20734fd7 /lisp/startup.el | |
| parent | dcd74c5f2c90338068e114ebedf0353f976a186c (diff) | |
| download | emacs-cea927edc867fb30a53dda7df937876b3fbb3d9b.tar.gz | |
(command-line): Decode all buffer names by locale-coding-system.
Diffstat (limited to 'lisp/startup.el')
| -rw-r--r-- | lisp/startup.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index 36065f0224a..ed1a90c9354 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -953,6 +953,19 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'." (run-hooks 'after-init-hook) + ;; Decode all buffer names. + (if (and default-enable-multibyte-characters locale-coding-system) + (save-excursion + (dolist (elt (buffer-list)) + (set-buffer elt) + (if default-directory + (setq default-directory + (decode-coding-string default-directory + locale-coding-system t)))) + (setq command-line-default-directory + (decode-coding-string command-line-default-directory + locale-coding-system t)))) + ;; If *scratch* exists and init file didn't change its mode, initialize it. (if (get-buffer "*scratch*") (with-current-buffer "*scratch*" |