]> code.delx.au - gnu-emacs-elpa/commitdiff
Fix free variable references
authorDmitry Gutov <dgutov@yandex.ru>
Mon, 2 Feb 2015 01:16:34 +0000 (03:16 +0200)
committerDmitry Gutov <dgutov@yandex.ru>
Mon, 2 Feb 2015 01:16:34 +0000 (03:16 +0200)
Props to Flycheck.

js2-mode.el

index 096f985a0dd98d695f2677ad416576fa3df8c7f8..81339037c707e6a130d63c1084820fc20507bcc8 100644 (file)
@@ -5632,8 +5632,7 @@ See http://es5.github.io/#x7.6"
   "Skip to end of line."
   (while (not (memq (js2-get-char) js2-eol-chars)))
   (js2-unget-char)
-  (setf (js2-token-end (js2-current-token)) js2-ts-cursor)
-  (setq js2-token-end js2-ts-cursor))
+  (setf (js2-token-end (js2-current-token)) js2-ts-cursor))
 
 (defun js2-init-scanner (&optional buf line)
   "Create token stream for BUF starting on LINE.
@@ -5869,9 +5868,9 @@ the token is flagged as such."
 During operation, creates an instance of `js2-token' struct, sets
 its relevant fields and puts it into `js2-ti-tokens'."
   (let (identifier-start
-        is-unicode-escape-start c c1
+        is-unicode-escape-start c
         contains-escape escape-val str result base
-        quote-char val look-for-slash continue tt
+        quote-char look-for-slash continue tt
         (token (js2-new-token 0)))
     (setq
      tt
@@ -6238,7 +6237,7 @@ its relevant fields and puts it into `js2-ti-tokens'."
   ;; building it out of a string buffer.
   (let ((c (js2-get-char))
         js2-ts-string-buffer
-        nc)
+        nc c1 val escape-val)
     (catch 'break
       (while (/= c quote-char)
         (catch 'continue