Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
f009f3bc
Commit
f009f3bc
authored
May 09, 2004
by
Juanma Barranquero
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(cvs-mode-run, cvs-is-within-p): Fix typo in docstring.
(cvs-get-marked): Remove redundant arglist info.
parent
60c24955
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
3 additions
and
6 deletions
+3
-6
lisp/pcvs.el
lisp/pcvs.el
+3
-6
No files found.
lisp/pcvs.el
View file @
f009f3bc
...
...
@@ -1312,10 +1312,7 @@ If there are any marked tins, and IGNORE-MARKS is nil, return them.
Otherwise,
if
the
cursor
selects
a
directory,
and
IGNORE-CONTENTS
is
nil
,
return
all
files
in
it,
else
return
just
the
directory.
Otherwise
return
(
a
list
containing
)
the
file
the
cursor
points
to,
or
an
empty
list
if
it
doesn
't
point
to
a
file
at
all.
Args:
&optional
IGNORE-MARKS
IGNORE-CONTENTS.
"
an
empty
list
if
it
doesn
't
point
to
a
file
at
all.
"
(let ((fis nil))
(dolist (fi (if (and (boundp 'cvs-minor-current-files)
(consp cvs-minor-current-files))
...
...
@@ -1754,7 +1751,7 @@ Signal an error if there is no backup file."
(defun cvs-is-within-p (fis dir)
"
Non-nil
i
s
buffer
is
inside
one
of
FIS
(
in
DIR
)
.
"
"
Non-nil
i
f
buffer
is
inside
one
of
FIS
(
in
DIR
)
.
"
(when (stringp buffer-file-name)
(setq buffer-file-name (expand-file-name buffer-file-name))
(let (ret)
...
...
@@ -1774,7 +1771,7 @@ BUF is the buffer to be used for cvs' output.
DONT-CHANGE-DISC
non-nil
indicates
that
the
command
will
not
change
the
contents
of
files.
This
is
only
used
by
the
parser.
POSTPROC
is
a
list
of
expressions
to
be
evaluated
at
the
very
end
(
after
parsing
if
applicable
)
.
It
will
be
prepended
with
`
progn
'
i
s
necessary.
"
parsing
if
applicable
)
.
It
will
be
prepended
with
`
progn
'
i
f
necessary.
"
(let ((def-dir default-directory))
;; Save the relevant buffers
(save-some-buffers nil (lambda () (cvs-is-within-p fis def-dir))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment