diff options
| author | Stefan Monnier | 2001-04-13 14:55:48 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-04-13 14:55:48 +0000 |
| commit | 6be6d5797756e0d11ec71df50339c18fc90b4cc6 (patch) | |
| tree | 5674c4b4d18afad766af130d8de65669269ddf3f | |
| parent | 118562e17a52a8fd48cafa0fd2f58fe9a8032ca8 (diff) | |
| download | emacs-6be6d5797756e0d11ec71df50339c18fc90b4cc6.tar.gz emacs-6be6d5797756e0d11ec71df50339c18fc90b4cc6.zip | |
(cvs-parse-run-table): Remove misleading text.
| -rw-r--r-- | lisp/pcvs-parse.el | 11 |
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. |
| 84 | DONT-CHANGE-DISC just indicates whether the command was changing the disc | 84 | DONT-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. |
| 87 | The path names should be interpreted as relative to SUBDIR (defaults | 87 | The path names should be interpreted as relative to SUBDIR (defaults |
| 88 | to the `default-directory'). | 88 | to the `default-directory'). |
| 89 | Return a list of collected entries, or t if an error occured." | 89 | Return 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 | ||