]> code.delx.au - gnu-emacs-elpa/commitdiff
Remove leftover accumulator; require js2-mode
authorDmitry Gutov <dgutov@yandex.ru>
Sat, 19 May 2012 12:18:27 +0000 (16:18 +0400)
committerDmitry Gutov <dgutov@yandex.ru>
Sat, 19 May 2012 12:18:27 +0000 (16:18 +0400)
js2-imenu-extras.el

index 6ee293bab9e9280707b3523748f8bfe1b8b5a5b2..a85a41d5bed6b2e97f053fd775edfd19ce95fae2 100644 (file)
@@ -1,6 +1,8 @@
 (eval-when-compile\r
   (require 'cl))\r
 \r
+(require 'js2-mode)\r
+\r
 (defconst js2-imenu-extension-styles\r
   `((:framework jquery\r
      :call-re   "\\_<\\(?:jQuery\\|\\$\\|_\\)\\.extend\\s-*("\r
@@ -56,15 +58,12 @@ in a shared namespace."
                           (concat "\\(" (plist-get style :call-re) "\\)"))\r
                         styles "\\|"))\r
          ;; Dynamic scoping. Ew.\r
-         (js2-mode-ast root)\r
-         chains)\r
+         (js2-mode-ast root))\r
     (goto-char (point-min))\r
     (while (js-re-search-forward re nil t)\r
-      (push (loop for i from 0 to (1- (length styles))\r
-                  when (match-beginning (1+ i))\r
-                  return (funcall (plist-get (nth i styles) :recorder)))\r
-            chains))\r
-    chains))\r
+      (loop for i from 0 to (1- (length styles))\r
+            when (match-beginning (1+ i))\r
+            return (funcall (plist-get (nth i styles) :recorder))))))\r
 \r
 (defun js2-imenu-record-jquery-extend ()\r
   (let ((pred (lambda (subject)\r