diff options
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/progmodes/sh-script.el | 6 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 256b793c244..f6534c07b6c 100644 --- 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 4032c9ce933..089715b4836 100644 --- 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 () |