From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 22 Jun 2007 18:37:46 +0000 (+0000)
Subject: Add docstrings.
X-Git-Tag: emacs-pretest-23.0.90~12149
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2ef3b3fe29833531e057ffc74fb586f0e50c1ca5;p=emacs.git

Add docstrings.
---

diff --git a/lisp/log-view.el b/lisp/log-view.el
index 5962c216624..eff24771dd5 100644
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -132,7 +132,9 @@
   (concat "^\\(?:Working file: \\(?1:.+\\)"                ;RCS and CVS.
           ;; Subversion has no such thing??
           "\\|\\(?:SCCS/s\\.\\|Changes to \\)\\(?1:.+\\):" ;SCCS and Darcs.
-	  "\\)\n"))                   ;Include the \n for font-lock reasons.
+	  "\\)\n")                    ;Include the \n for font-lock reasons.
+  "Regexp matching the text identifying the file.
+The match group number 1 should match the file name itself.")
 
 (defvar log-view-message-re
   (concat "^\\(?:revision \\(?1:[.0-9]+\\)\\(?:\t.*\\)?" ; RCS and CVS.
@@ -147,7 +149,9 @@
           (concat "\\|[^ \n].*[^0-9\n][0-9][0-9]:[0-9][0-9][^0-9\n].*[^ \n]"
                   ;;Email of user and finally Msg, used as revision name.
                   "  .*@.*\n\\(?:  \\* \\(?1:.*\\)\\)?")
-          "\\)$"))
+          "\\)$")
+  "Regexp matching the text identifying a revision.
+The match group number 1 should match the revision number itself.")
 
 (defvar log-view-font-lock-keywords
   ;; We use `eval' so as to use the buffer-local value of log-view-file-re