(sh-get-kw): | is not among the allowed chars for a keyword.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d434dfed1518f86713c4e17d8c17064b7921b1e..2b5515349bfefd8853c279f5bd559a9aa9636441 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-10  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * progmodes/sh-script.el (sh-get-kw): | is not among the allowed chars
+       for a keyword.
+
 2006-10-09  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * newcomment.el (comment-valid-prefix-p): Make the check

diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el
index a15cc216f75ed2292b4e2fbe6091f841b52913ac..83b4bdea759e7f2bfbc4ecce2e9eaf65051747b0 100644 (file)
--- a/lisp/progmodes/sh-script.el
+++ b/lisp/progmodes/sh-script.el
@@ -2517,7 +2517,7 @@ If AND-MOVE is non-nil then move to end of word."
        (goto-char where))
     (prog1
        (buffer-substring (point)
-                         (progn (skip-chars-forward "^ \t\n;&")(point)))
+                         (progn (skip-chars-forward "^ \t\n;&|()")(point)))
       (unless and-move
        (goto-char start)))))