diff options
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)) |