procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* term/ns-win.el (ns-find-file): Expand ns-input-file with

Browse source 
command-line-default-directory (Bug#7872).

NOTE: The trunk version is a bit different, I think there will be
merge conflicts.
This commit is contained in:
Jan Djärv 2011-01-26 19:05:13 +01:00
parent ea08011c7e
commit ca9c274ae7
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-01-26 Roy Liu <carsomyr@gmail.com> (tiny change)
* term/ns-win.el (ns-find-file): Expand ns-input-file with
command-line-default-directory (Bug#7872).
2011-01-25 Glenn Morris <rgm@gnu.org>
* comint.el (comint-mode): Doc fix. (Bug#7897)

3
lisp/term/ns-win.el
View file

@ -787,7 +787,8 @@ unless the current buffer is a scratch buffer."
"Do a `find-file' with the `ns-input-file' as argument."
(interactive)
(let ((f) (file) (bufwin1) (bufwin2))
(setq f (file-truename (car ns-input-file)))
(setq f (file-truename (expand-file-name (car ns-input-file)
command-line-default-directory)))
(setq ns-input-file (cdr ns-input-file))
(setq file (find-file-noselect f))
(setq bufwin1 (get-buffer-window file 'visible))