From: Glenn Morris <rgm@gnu.org>
Date: Fri, 18 Sep 2009 07:16:49 +0000 (+0000)
Subject: (js-end-of-defun): Remove malformed and unneeded let.
X-Git-Tag: emacs-pretest-23.1.90~1265
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=07eae5c5e0769d5ade88330dede40231c88f2f56;p=emacs.git

(js-end-of-defun): Remove malformed and unneeded let.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2b661b588b0..dab341513a3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-09-18  Glenn Morris  <rgm@gnu.org>
 
+	* progmodes/js.el (js-end-of-defun): Remove malformed and unneeded let.
+
 	* emacs-lisp/derived.el (define-derived-mode): Fix paren typo in
 	definition of abbrev table.
 
diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el
index db8a52330c1..d2264043cb5 100644
--- a/lisp/progmodes/js.el
+++ b/lisp/progmodes/js.el
@@ -1211,12 +1211,11 @@ LIMIT defaults to point."
   "Value of `end-of-defun-function' for `js-mode'."
   (setq arg (or arg 1))
   (while (and (not (bobp)) (< arg 0))
-    (let (orig-pos (point))
-      (incf arg)
-      (js-beginning-of-defun)
-      (js-beginning-of-defun)
-      (unless (bobp)
-        (js-end-of-defun))))
+    (incf arg)
+    (js-beginning-of-defun)
+    (js-beginning-of-defun)
+    (unless (bobp)
+      (js-end-of-defun)))
 
   (while (> arg 0)
     (decf arg)