diff options
| author | Stefan Monnier | 2009-03-10 14:08:52 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2009-03-10 14:08:52 +0000 |
| commit | ba528748a14a34d2c3f619615c4cdaf4bbd89cc0 (patch) | |
| tree | 16c988a41705f78fff35c619216e2f4d73af838d /lisp | |
| parent | bba79a9ce446856701d58cdeb26488b6a0b87864 (diff) | |
| download | emacs-ba528748a14a34d2c3f619615c4cdaf4bbd89cc0.tar.gz emacs-ba528748a14a34d2c3f619615c4cdaf4bbd89cc0.zip | |
* server.el (server-process-filter): Use expand-file-name rather than
command-line-normalize-file-name so as to use the `dir' when provided.
* emacsclient.c (main): Always pass cwd via "-dir". Pass the file
names without prepending cwd to them, so Emacs uses its customary
rules to determine how to interpret the file name.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/server.el | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ee521252b96..21706156689 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,8 @@ | |||
| 1 | 2009-03-10 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2009-03-10 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 2 | ||
| 3 | * server.el (server-process-filter): Use expand-file-name rather than | ||
| 4 | command-line-normalize-file-name so as to use the `dir' when provided. | ||
| 5 | |||
| 3 | * doc-view.el (doc-view-convert-current-doc): Fix last change. | 6 | * doc-view.el (doc-view-convert-current-doc): Fix last change. |
| 4 | 7 | ||
| 5 | 2009-03-10 Glenn Morris <rgm@gnu.org> | 8 | 2009-03-10 Glenn Morris <rgm@gnu.org> |
diff --git a/lisp/server.el b/lisp/server.el index 5e4e6e1548e..10b08ad4a3b 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -962,7 +962,7 @@ The following commands are accepted by the client: | |||
| 962 | (let ((file (pop command-line-args-left))) | 962 | (let ((file (pop command-line-args-left))) |
| 963 | (if coding-system | 963 | (if coding-system |
| 964 | (setq file (decode-coding-string file coding-system))) | 964 | (setq file (decode-coding-string file coding-system))) |
| 965 | (setq file (command-line-normalize-file-name file)) | 965 | (setq file (expand-file-name file dir)) |
| 966 | (push (cons file filepos) files) | 966 | (push (cons file filepos) files) |
| 967 | (server-log (format "New file: %s %s" | 967 | (server-log (format "New file: %s %s" |
| 968 | file (or filepos "")) proc)) | 968 | file (or filepos "")) proc)) |