(help-do-arg-highlight): Highlight also -ARG (for example, -NLINES on the

`occur' docstring).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aa34f19b6bf8c0a47db052dbe58b44a02bc11e86..6533457b7f20d440e16b26c60e675667395e3854 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-06-30  Juanma Barranquero  <lekktu@gmail.com>
 
+       * help-fns.el (help-do-arg-highlight): Highlight also -ARG (for
+       example, -NLINES in the `occur' docstring).
+
        * replace.el (occur-1): When no matches are found, do not set the
        `buffer-read-only' and modified flags for the occur buffer,
        because it is deleted.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index b5e22bf18558f71ca225c24eb035361977920080..39d5f2fc4eaf3f6f51477f80f4ed361c068d903c 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -275,7 +275,7 @@ face (according to `face-differs-from-default-p')."
                    ;; This is heuristic, but covers all common cases
                    ;; except ARG1-ARG2
                    (concat "\\<"                   ; beginning of word
-                           "\\(?:[a-z-]+-\\)?"     ; for xxx-ARG
+                           "\\(?:[a-z-]*-\\)?"     ; for xxx-ARG
                            "\\("
                            arg
                            "\\)"