From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 30 Jun 2005 14:20:56 +0000 (+0000)
Subject: (help-do-arg-highlight): Highlight also -ARG (for example, -NLINES on the
X-Git-Tag: emacs-pretest-22.0.90~8548
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=27bbbadb3eb165d96b90fc77de47b76680e09438;p=emacs.git

(help-do-arg-highlight): Highlight also -ARG (for example, -NLINES on the
`occur' docstring).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index aa34f19b6bf..6533457b7f2 100644
--- 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 b5e22bf1855..39d5f2fc4ea 100644
--- 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
                            "\\)"