[Emacs-diffs] emacs/lisp ChangeLog progmodes/js.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/18 07:16:52

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : js.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16198&r2=1.16199
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/js.el?cvsroot=emacs&r1=1.6&r2=1.7

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16198
retrieving revision 1.16199
diff -u -b -r1.16198 -r1.16199
--- ChangeLog   18 Sep 2009 07:14:43 -0000      1.16198
+++ ChangeLog   18 Sep 2009 07:16:49 -0000      1.16199
@@ -1,5 +1,7 @@
 2009-09-18  Glenn Morris  <address@hidden>
 
+       * 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.
 

Index: progmodes/js.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/js.el,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- progmodes/js.el     12 Sep 2009 00:01:06 -0000      1.6
+++ progmodes/js.el     18 Sep 2009 07:16:52 -0000      1.7
@@ -1211,12 +1211,11 @@
   "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))))
+      (js-end-of-defun)))
 
   (while (> arg 0)
     (decf arg)