diff options
| author | Glenn Morris <rgm@gnu.org> | 2010-10-27 00:39:34 -0700 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2010-10-27 00:39:34 -0700 |
| commit | c6efd3dd5df2b87f7fa46ee066697b1d439b2b75 (patch) | |
| tree | 1047eadf76d7c56c45e8a8646d614454aee5be18 /lisp/term/ns-win.el | |
| parent | 208d109c18bf5a1de184b4d3c70748ca4d68aeef (diff) | |
| download | emacs-c6efd3dd5df2b87f7fa46ee066697b1d439b2b75.tar.gz emacs-c6efd3dd5df2b87f7fa46ee066697b1d439b2b75.tar.bz2 emacs-c6efd3dd5df2b87f7fa46ee066697b1d439b2b75.zip | |
* lisp/term/ns-win.el (ns-insert-file): Init in let.
(ns-find-file): Use let*.
Diffstat (limited to 'lisp/term/ns-win.el')
| -rw-r--r-- | lisp/term/ns-win.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index ab18d9ad806..e0dffa87251 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -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)) |