[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 44765de: Make use of cl-loop destructuring
From: |
Mark Oteiza |
Subject: |
[Emacs-diffs] master 44765de: Make use of cl-loop destructuring |
Date: |
Thu, 26 Jan 2017 02:38:14 +0000 (UTC) |
branch: master
commit 44765de2005fb56c5930383d6bd1e959a0102a45
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>
Make use of cl-loop destructuring
* lisp/progmodes/js.el (js--get-tabs): Replace extraneous bits with
destructuring.
(with-js): Add declare forms.
---
lisp/progmodes/js.el | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el
index 2e5c6ae..4a5bde7 100644
--- a/lisp/progmodes/js.el
+++ b/lisp/progmodes/js.el
@@ -3214,7 +3214,7 @@ with `js--js-encode-value'."
Inside the lexical scope of `with-js', `js?', `js!',
`js-new', `js-eval', `js-list', `js<', `js>', `js-get-service',
`js-create-instance', and `js-qi' are defined."
-
+ (declare (indent 0) (debug t))
`(progn
(js--js-enter-repl)
(unwind-protect
@@ -3431,11 +3431,8 @@ left-to-right."
(eq (cl-fifth window-info) 2))
do (push window-info windows))
- (cl-loop for window-info in windows
- for window = (cl-first window-info)
- collect (list (cl-second window-info)
- (cl-third window-info)
- window)
+ (cl-loop for (window title location) in windows
+ collect (list title location window)
for gbrowser = (js< window "gBrowser")
if (js-handle? gbrowser)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 44765de: Make use of cl-loop destructuring,
Mark Oteiza <=