Mercurial > emacs
changeset 111203:d9447313bf33
* lisp/term/ns-win.el (ns-insert-file): Init in let.
(ns-find-file): Use let*.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 27 Oct 2010 00:39:34 -0700 |
| parents | 607a65b74c6c |
| children | a5bff5a31837 |
| files | lisp/term/ns-win.el |
| diffstat | 1 files changed, 5 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/ns-win.el Tue Oct 26 23:50:28 2010 -0700 +++ b/lisp/term/ns-win.el Wed Oct 27 00:39:34 2010 -0700 @@ -420,8 +420,7 @@ "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 @@ (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))