aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2001-04-13 14:55:48 +0000
committerStefan Monnier2001-04-13 14:55:48 +0000
commit6be6d5797756e0d11ec71df50339c18fc90b4cc6 (patch)
tree5674c4b4d18afad766af130d8de65669269ddf3f
parent118562e17a52a8fd48cafa0fd2f58fe9a8032ca8 (diff)
downloademacs-6be6d5797756e0d11ec71df50339c18fc90b4cc6.tar.gz
emacs-6be6d5797756e0d11ec71df50339c18fc90b4cc6.zip
(cvs-parse-run-table): Remove misleading text.
-rw-r--r--lisp/pcvs-parse.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/pcvs-parse.el b/lisp/pcvs-parse.el
index 036837c3bcb..9f732e0c9b9 100644
--- a/lisp/pcvs-parse.el
+++ b/lisp/pcvs-parse.el
@@ -4,7 +4,7 @@
4 4
5;; Author: Stefan Monnier <monnier@cs.yale.edu> 5;; Author: Stefan Monnier <monnier@cs.yale.edu>
6;; Keywords: pcl-cvs 6;; Keywords: pcl-cvs
7;; Revision: $Id: pcvs-parse.el,v 1.5 2000/12/18 03:17:31 monnier Exp $ 7;; Revision: $Id: pcvs-parse.el,v 1.6 2001/03/07 00:17:53 monnier Exp $
8 8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
@@ -82,11 +82,11 @@ PARSE-SPEC is a function of no argument advancing the point and returning
82 either a fileinfo or t (if the matched text should be ignored) or 82 either a fileinfo or t (if the matched text should be ignored) or
83 nil if it didn't match anything. 83 nil if it didn't match anything.
84DONT-CHANGE-DISC just indicates whether the command was changing the disc 84DONT-CHANGE-DISC just indicates whether the command was changing the disc
85 or not (useful to tell the difference btween `cvs-examine' and `cvs-update' 85 or not (useful to tell the difference between `cvs-examine' and `cvs-update'
86 ouytput. 86 output.
87The path names should be interpreted as relative to SUBDIR (defaults 87The path names should be interpreted as relative to SUBDIR (defaults
88 to the `default-directory'). 88 to the `default-directory').
89Return a list of collected entries, or t if an error occured." 89Return a list of collected entries, or t if an error occurred."
90 (goto-char (point-min)) 90 (goto-char (point-min))
91 (let ((fileinfos ()) 91 (let ((fileinfos ())
92 (cvs-current-dir "") 92 (cvs-current-dir "")
@@ -159,7 +159,8 @@ Match RE and if successful, execute MATCHES."
159 (and 159 (and
160 (cvs-match ".*$") 160 (cvs-match ".*$")
161 (cvs-create-fileinfo 'MESSAGE cvs-current-dir " " 161 (cvs-create-fileinfo 'MESSAGE cvs-current-dir " "
162 (concat " Unknown msg: '" (cvs-parse-msg) "'") 162 ;; (concat " Unknown msg: '"
163 (cvs-parse-msg) ;; "'")
163 :subtype 'ERROR))))) 164 :subtype 'ERROR)))))
164 165
165 166