[Emacs-diffs] trunk r115214: * lisp/progmodes/js.el (js--ctrl-statement-indentation): Fix indent

[Dmitry Gutov]

------------------------------------------------------------
revno: 115214
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/15956
author: Mihir Rege <address@hidden>
committer: Dmitry Gutov <address@hidden>
branch nick: trunk
timestamp: Mon 2013-11-25 00:01:08 +0200
message:
  * lisp/progmodes/js.el (js--ctrl-statement-indentation): Fix indent
  when control-statement is the first statement in a buffer.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/progmodes/js.el           js.el-20091113204419-o5vbwnq5f7feedwu-10919

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-11-24 21:23:47 +0000
+++ b/lisp/ChangeLog    2013-11-24 22:01:08 +0000
@@ -1,3 +1,8 @@
+2013-11-22  Mihir Rege  <address@hidden>  (tiny change)
+
+       * progmodes/js.el (js--ctrl-statement-indentation): Fix indent
+       when control-statement is the first statement in a buffer (Bug#15956).
+
 2013-11-24  Dmitry Gutov  <address@hidden>
 
        * imenu.el (imenu-generic-skip-comments-and-strings):

=== modified file 'lisp/progmodes/js.el'
--- a/lisp/progmodes/js.el      2013-08-09 21:22:44 +0000
+++ b/lisp/progmodes/js.el      2013-11-24 22:01:08 +0000
@@ -1749,8 +1749,8 @@
     (when (save-excursion
             (and (not (eq (point-at-bol) (point-min)))
                  (not (looking-at "[{]"))
+                 (js--re-search-backward "[[:graph:]]" nil t)
                  (progn
-                   (js--re-search-backward "[[:graph:]]" nil t)
                    (or (eobp) (forward-char))
                    (when (= (char-before) ?\)) (backward-list))
                    (skip-syntax-backward " ")