mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/term/ns-win.el (ns-insert-file): Init in let.

Browse source 
(ns-find-file): Use let*.
This commit is contained in:
Glenn Morris 2010-10-27 00:39:34 -07:00
parent 208d109c18
commit c6efd3dd5d
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -420,8 +420,7 @@ See `ns-insert-working-text'."
"Insert contents of file `ns-input-file' like insert-file but with less
prompting. If file is a directory perform a `find-file' on it."
(interactive)
(let (f)
(setq f (pop ns-input-file))
(let ((f (pop ns-input-file)))
(if (file-directory-p f)
(find-file f)
(push-mark (+ (point) (cadr (insert-file-contents f)))))))
@ -527,11 +526,10 @@ unless the current buffer is a scratch buffer."
(defun ns-find-file ()
"Do a `find-file' with the `ns-input-file' as argument."
(interactive)
(let (f file bufwin1 bufwin2)
(setq f (file-truename (pop ns-input-file))
file (find-file-noselect f)
bufwin1 (get-buffer-window file 'visible)
bufwin2 (get-buffer-window "*scratch*" 'visibile))
(let* ((f (file-truename (pop ns-input-file)))
(file (find-file-noselect f))
(bufwin1 (get-buffer-window file 'visible))
(bufwin2 (get-buffer-window "*scratch*" 'visibile)))
(cond
(bufwin1
(select-frame (window-frame bufwin1))