(sh-prev-thing): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 256b793c244af2b6c7aafb83c2ce171f3b65d330..f6534c07b6c2f5845bee629a4087d2c72151e479 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-10-02  Michael Welsh Duggan  <md5i@cs.cmu.edu>
+
+       * progmodes/sh-script.el (sh-prev-thing): Fix last change.
+
 2006-10-02  MIYOSHI Masanori <miyoshi@meadowy.org>  (tiny change)
 
        * mail/smtpmail.el (smtpmail-try-auth-methods): Fix typo in

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index 4032c9ce933aae44dc0c700c2acf51e0c9bd5433..089715b4836117bc6fac15cf614f799b285a3fba 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -2472,8 +2472,8 @@ we go to the end of the previous line and do not check for continuations."
        (point))
        (skip-chars-backward " \t;")
        (unless (looking-at "\\s-*;;")
-       (skip-chars-backward "^)}];\"'`({[")
-       (setq c (char-before))
+         (skip-chars-backward "^)}];\"'`({[")
+         (setq c (char-before)))
        (sh-debug "stopping at %d c is %s  start=%d min-point=%d"
                  (point) c start min-point)
        (if (< (point) min-point)
@@ -2508,7 +2508,7 @@ we go to the end of the previous line and do not check for continuations."
          ;; c  -- return a string
          (char-to-string c)
          ))
-       )))))
+       ))))
 
 
 (defun sh-this-is-a-continuation ()