Mercurial > emacs

comparison lisp/help-fns.el @ 63876:f66c007ebe28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-do-arg-highlight): Highlight also -ARG (for example, -NLINES on the `occur' docstring).
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 30 Jun 2005 14:19:11 +0000
parents af6dffb5d180
children dc6d162ead80
comparison
equal deleted inserted replaced
63875:ede5ae2b2e2e 63876:f66c007ebe28
273 (let ((arg (prog1 (car args) (setq args (cdr args))))) 273 (let ((arg (prog1 (car args) (setq args (cdr args)))))
274 (setq doc (replace-regexp-in-string 274 (setq doc (replace-regexp-in-string
275 ;; This is heuristic, but covers all common cases 275 ;; This is heuristic, but covers all common cases
276 ;; except ARG1-ARG2 276 ;; except ARG1-ARG2
277 (concat "\\<" ; beginning of word 277 (concat "\\<" ; beginning of word
278 "\\(?:[a-z-]+-\\)?" ; for xxx-ARG 278 "\\(?:[a-z-]*-\\)?" ; for xxx-ARG
279 "\\(" 279 "\\("
280 arg 280 arg
281 "\\)" 281 "\\)"
282 "\\(?:es\\|s\\|th\\)?" ; for ARGth, ARGs 282 "\\(?:es\\|s\\|th\\)?" ; for ARGth, ARGs
283 "\\(?:-[a-z-]+\\)?" ; for ARG-xxx 283 "\\(?:-[a-z-]+\\)?" ; for ARG-xxx