Commit 44765de2 authored by Mark Oteiza's avatar Mark Oteiza
Browse files

Make use of cl-loop destructuring

* lisp/progmodes/js.el (js--get-tabs): Replace extraneous bits with
destructuring.
(with-js): Add declare forms.
parent d32dfc2c
...@@ -3214,7 +3214,7 @@ with `js--js-encode-value'." ...@@ -3214,7 +3214,7 @@ with `js--js-encode-value'."
Inside the lexical scope of `with-js', `js?', `js!', Inside the lexical scope of `with-js', `js?', `js!',
`js-new', `js-eval', `js-list', `js<', `js>', `js-get-service', `js-new', `js-eval', `js-list', `js<', `js>', `js-get-service',
`js-create-instance', and `js-qi' are defined." `js-create-instance', and `js-qi' are defined."
(declare (indent 0) (debug t))
`(progn `(progn
(js--js-enter-repl) (js--js-enter-repl)
(unwind-protect (unwind-protect
...@@ -3431,11 +3431,8 @@ left-to-right." ...@@ -3431,11 +3431,8 @@ left-to-right."
(eq (cl-fifth window-info) 2)) (eq (cl-fifth window-info) 2))
do (push window-info windows)) do (push window-info windows))
(cl-loop for window-info in windows (cl-loop for (window title location) in windows
for window = (cl-first window-info) collect (list title location window)
collect (list (cl-second window-info)
(cl-third window-info)
window)
for gbrowser = (js< window "gBrowser") for gbrowser = (js< window "gBrowser")
if (js-handle? gbrowser) if (js-handle? gbrowser)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment