[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r102124: * lisp/term/ns-win.el (ns-in
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r102124: * lisp/term/ns-win.el (ns-insert-file): Init in let. |
Date: |
Wed, 27 Oct 2010 00:39:34 -0700 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 102124
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2010-10-27 00:39:34 -0700
message:
* lisp/term/ns-win.el (ns-insert-file): Init in let.
(ns-find-file): Use let*.
modified:
lisp/term/ns-win.el
=== modified file 'lisp/term/ns-win.el'
--- a/lisp/term/ns-win.el 2010-10-27 06:48:04 +0000
+++ b/lisp/term/ns-win.el 2010-10-27 07:39:34 +0000
@@ -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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r102124: * lisp/term/ns-win.el (ns-insert-file): Init in let.,
Glenn Morris <=