procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lisp/vc/pcvs*.el: Fix typos.

Browse source 
* lisp/vc/pcvs-defs.el (cvs-auto-remove-handled)
(cvs-auto-remove-directories, cvs-default-ignore-marks)
(cvs-idiff-imerge-handlers, cvs-reuse-cvs-buffer)
(cvs-execute-single-dir): Fix docstring typos.

* lisp/vc/pcvs-info.el (cvs-status-map, cvs-states): Fix docstring typos.
(cvs-fileinfo-pp, cvs-fileinfo-from-entries): Doc fixes.

* lisp/vc/pcvs-parse.el (cvs-parsed-fileinfo): Reflow docstring.

* lisp/vc/pcvs-util.el (cvs-flags-query, cvs-flags-set, cvs-prefix-set):
Fix docstring typos.

* lisp/vc/pcvs.el (cvs-temp-buffer, defun-cvs-mode, cvs-get-cvsroot)
(cvs-checkout, cvs-mode-checkout, cvs-update-filter, cvs-mode-mark)
(cvs-mode-diff-head, cvs-mode-diff-repository, cvs-mode-diff-yesterday)
(cvs-mode-diff-vendor, cvs-mode-do, cvs-change-cvsroot)
(cvs-dired-use-hook): Fix docstring typos.
(cvs-mode-view-file-other-window, cvs-mode-byte-compile-files):
Doc fixes.
This commit is contained in:
Juanma Barranquero 2014-03-12 05:00:03 +01:00
parent 13c00cf02f
commit 5983b317f4
6 changed files with 72 additions and 49 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/ChangeLog
View file

@ -1,3 +1,26 @@
2014-03-12 Juanma Barranquero <lekktu@gmail.com>
* vc/pcvs.el (cvs-temp-buffer, defun-cvs-mode, cvs-get-cvsroot)
(cvs-checkout, cvs-mode-checkout, cvs-update-filter, cvs-mode-mark)
(cvs-mode-diff-head, cvs-mode-diff-repository, cvs-mode-diff-yesterday)
(cvs-mode-diff-vendor, cvs-mode-do, cvs-change-cvsroot)
(cvs-dired-use-hook): Fix docstring typos.
(cvs-mode-view-file-other-window, cvs-mode-byte-compile-files):
Doc fixes.
* vc/pcvs-defs.el (cvs-auto-remove-handled)
(cvs-auto-remove-directories, cvs-default-ignore-marks)
(cvs-idiff-imerge-handlers, cvs-reuse-cvs-buffer)
(cvs-execute-single-dir): Fix docstring typos.
* vc/pcvs-info.el (cvs-status-map, cvs-states): Fix docstring typos.
(cvs-fileinfo-pp, cvs-fileinfo-from-entries): Doc fixes.
* vc/pcvs-parse.el (cvs-parsed-fileinfo): Reflow docstring.
* vc/pcvs-util.el (cvs-flags-query, cvs-flags-set, cvs-prefix-set):
Fix docstring typos.
2014-03-12 Juanma Barranquero <lekktu@gmail.com>
* frameset.el (frameset--jump-to-register): Add autoload; it could be

32
lisp/vc/pcvs-defs.el
View file

@ -92,17 +92,17 @@ There is no need to set this if $CVSROOT is set to a correct value.")
(defcustom cvs-auto-remove-handled nil
"If up-to-date files should be acknowledged automatically.
If T, they will be removed from the *cvs* buffer after every command.
If DELAYED, they will be removed from the *cvs* buffer before every command.
If STATUS, they will only be removed after a `cvs-mode-status' command.
If t, they will be removed from the *cvs* buffer after every command.
If `delayed', they will be removed from the *cvs* buffer before every command.
If `status', they will only be removed after a `cvs-mode-status' command.
Else, they will never be automatically removed from the *cvs* buffer."
:group 'pcl-cvs
:type '(choice (const nil) (const status) (const delayed) (const t)))
(defcustom cvs-auto-remove-directories 'handled
"If ALL, directory entries will never be shown.
If HANDLED, only non-handled directories will be shown.
If EMPTY, only non-empty directories will be shown."
"If `all', directory entries will never be shown.
If `handled', only non-handled directories will be shown.
If `empty', only non-empty directories will be shown."
:group 'pcl-cvs
:type '(choice (const :tag "No" nil) (const all) (const handled) (const empty)))
@ -129,7 +129,7 @@ useful to be able to tag a single file. The normal way to do that is to use
Normally they run on the files that are marked (with `cvs-mode-mark'),
or the file under the cursor if no files are marked. If this variable
is set to a non-nil value they will by default run on the file on the
current line. See also `cvs-invert-ignore-marks'"
current line. See also `cvs-invert-ignore-marks'."
:group 'pcl-cvs
:type '(boolean))
@ -235,7 +235,7 @@ Output from cvs is placed here for asynchronous commands.")
(if (fboundp 'ediff)
'(cvs-ediff-diff . cvs-ediff-merge)
'(cvs-emerge-diff . cvs-emerge-merge))
"Pair of functions to be used for resp. diff'ing and merg'ing interactively."
"Pair of functions to be used for resp. diff'ing and merg'ing interactively."
:group 'pcl-cvs
:type '(choice (const :tag "Ediff" (cvs-ediff-diff . cvs-ediff-merge))
(const :tag "Emerge" (cvs-emerge-diff . cvs-emerge-merge))))
@ -251,10 +251,10 @@ Output from cvs is placed here for asynchronous commands.")
(defcustom cvs-reuse-cvs-buffer 'subdir
"When to reuse an existing cvs buffer.
Alternatives are:
CURRENT: just reuse the current buffer if it is a cvs buffer
SAMEDIR: reuse any cvs buffer displaying the same directory
SUBDIR: or reuse any cvs buffer displaying any sub- or super- directory
ALWAYS: reuse any cvs buffer."
`current': just reuse the current buffer if it is a cvs buffer
`samedir': reuse any cvs buffer displaying the same directory
`subdir': or reuse any cvs buffer displaying any sub- or super- directory
`always': reuse any cvs buffer."
:group 'pcl-cvs
:type '(choice (const always) (const subdir) (const samedir) (const current)))
@ -488,16 +488,16 @@ It is expected to call the function.")
t)
"Whether cvs commands should be executed a directory at a time.
If a list, specifies for which commands the single-dir mode should be used.
If T, single-dir mode should be used for all operations.
If t, single-dir mode should be used for all operations.
CVS versions before 1.10 did not allow passing them arguments in different
directories, so pcl-cvs checks what version you're using to determine
directories, so PCL-CVS checks what version you're using to determine
whether to use the new feature or not.
Sadly, even with a new cvs executable, if you connect to an older cvs server
\(typically a cvs-1.9 on the server), the old restriction applies. In such
a case the sanity check made by pcl-cvs fails and you will have to manually
a case the sanity check made by PCL-CVS fails and you will have to manually
set this variable to t (until the cvs server is upgraded).
When the above problem occurs, pcl-cvs should (hopefully) catch cvs' error
When the above problem occurs, PCL-CVS should (hopefully) catch cvs' error
message and replace it with a message telling you to change this variable.")
;;

10
lisp/vc/pcvs-info.el
View file

@ -142,7 +142,7 @@ to confuse some users sometimes."
(easy-mmode-defmap cvs-status-map
'(([(mouse-2)] . cvs-mode-toggle-mark))
"Local keymap for text properties of status")
"Local keymap for text properties of status.")
;; Constructor:
@ -301,8 +301,8 @@ to confuse some users sometimes."
(DEAD )
(MESSAGE))
"Fileinfo state descriptions for pcl-cvs.
This is an assoc list. Each element consists of (STATE . FUNS)
- STATE (described in `cvs-create-fileinfo') is the key
This is an assoc list. Each element consists of (STATE . FUNS):
- STATE (described in `cvs-create-fileinfo') is the key.
- FUNS is the list of applicable operations.
The first one (if any) should be the \"default\" action.
Most of the actions have the obvious meaning.
@ -332,7 +332,7 @@ FI-OR-TYPE can either be a symbol (a fileinfo-type) or a fileinfo."
(defun cvs-fileinfo-pp (fileinfo)
"Pretty print FILEINFO. Insert a printed representation in current buffer.
For use by the cookie package."
For use by the ewoc package."
(cvs-check-fileinfo fileinfo)
(let ((type (cvs-fileinfo->type fileinfo))
(subtype (cvs-fileinfo->subtype fileinfo)))
@ -416,7 +416,7 @@ fileinfo will appear first, followed by all files (alphabetically)."
(defun cvs-fileinfo-from-entries (dir &optional all)
"List of fileinfos for DIR, extracted from CVS/Entries.
Unless ALL is optional, returns only the files that are not up-to-date.
Unless ALL is non-nil, returns only the files that are not up-to-date.
DIR can also be a file."
(let* ((singlefile
(cond

8
lisp/vc/pcvs-parse.el
View file

@ -165,13 +165,13 @@ Match RE and if successful, execute MATCHES."
TYPE can either be a type symbol or a cons of the form (TYPE . SUBTYPE).
PATH is the filename.
DIRECTORY influences the way PATH is interpreted:
- if it's a string, it denotes the directory in which PATH (which should then be
- if a string, it denotes the directory in which PATH (which should then be
a plain file name with no directory component) resides.
- if it's nil, the PATH should not be trusted: if it has a directory
component, use it, else, assume it is relative to the current directory.
- else, the PATH should be trusted to be relative to the root
directory (i.e. if there is no directory component, it means the file
is inside the main directory).
- else, the PATH should be trusted to be relative to the root directory
(i.e. if there is no directory component, it means the file is inside
the main directory).
The remaining KEYS are passed directly to `cvs-create-fileinfo'."
(let ((dir directory)
(file path))

6
lisp/vc/pcvs-util.el
View file

@ -253,7 +253,7 @@ arguments. If ARGS is not a list, no argument will be passed."
Optional argument DESC will be used for the prompt.
If ARG (or a prefix argument) is nil, just use the 0th default.
If it is a non-negative integer, use the corresponding default.
If it is a negative integer query for a new value of the corresponding
If it is a negative integer, query for a new value of the corresponding
default and return that new value.
If it is \\[universal-argument], just query and return a value without
altering the defaults.
@ -286,7 +286,7 @@ If it is \\[universal-argument] \\[universal-argument], behave just
(nth numarg defaults))))
(defsubst cvs-flags-set (sym index value)
"Set SYM's INDEX'th setting to VALUE."
"Set SYM's INDEXth setting to VALUE."
(setf (nth index (cvs-flags-defaults (symbol-value sym))) value))
;;;;
@ -323,7 +323,7 @@ See `cvs-prefix-set' for further description of the behavior."))
"Set the cvs-prefix contained in SYM.
If ARG is between 0 and 9, it selects the corresponding default.
If ARG is negative (or \\[universal-argument] which corresponds to negative 0),
it queries the user and sets the -ARG'th default.
it queries the user and sets the -ARGth default.
If ARG is greater than 9 (or \\[universal-argument] \\[universal-argument]),
the (ARG mod 10)'th prefix is made persistent.
If ARG is nil toggle the PREFIX's value between its 0th default and nil

42
lisp/vc/pcvs.el
View file

@ -341,11 +341,11 @@ the \\[cvs-mode-map] prefix."
(defun cvs-temp-buffer (&optional cmd normal nosetup)
"Create a temporary buffer to run CMD in.
If CMD is a string, use it to lookup `cvs-buffer-name-alist' to find
the buffer name to be used and its `major-mode'.
the buffer name to be used and its major mode.
The selected window will not be changed. The new buffer will not maintain undo
information and will be read-only unless NORMAL is non-nil. It will be emptied
\(unless NOSETUP is non-nil\) and its `default-directory' will be inherited
\(unless NOSETUP is non-nil) and its `default-directory' will be inherited
from the current buffer."
(let* ((cvs-buf (current-buffer))
(info (cdr (assoc cmd cvs-buffer-name-alist)))
@ -750,13 +750,13 @@ FUN can be either a symbol (i.e. STYLE is nil) or a cons (FUN . STYLE).
ARGS and DOCSTRING are the normal argument list.
INTERACT is the interactive specification or nil for non-commands.
STYLE can be either SIMPLE, NOARGS or DOUBLE. It's an error for it
STYLE can be either `SIMPLE', `NOARGS' or `DOUBLE'. It's an error for it
to have any other value, unless other details of the function make it
clear what alternative to use.
- SIMPLE will get all the interactive arguments from the original buffer.
- NOARGS will get all the arguments from the *cvs* buffer and will
- `SIMPLE' will get all the interactive arguments from the original buffer.
- `NOARGS' will get all the arguments from the *cvs* buffer and will
always behave as if called interactively.
- DOUBLE is the generic case."
- `DOUBLE' is the generic case."
(declare (debug (&define sexp lambda-list stringp
("interactive" interactive) def-body))
(doc-string 3))
@ -910,7 +910,7 @@ RM-MSGS if non-nil means remove messages."
(setq rerun t)))))
(defun cvs-get-cvsroot ()
"Gets the CVSROOT for DIR."
"Get the CVSROOT for DIR."
(let ((cvs-cvsroot-file (expand-file-name "Root" "CVS")))
(or (cvs-file-to-string cvs-cvsroot-file t)
cvs-cvsroot
@ -940,7 +940,7 @@ This usually doesn't really work but is a handy initval in a prompt."
;;;###autoload
(defun cvs-checkout (modules dir flags &optional root)
"Run a 'cvs checkout MODULES' in DIR.
"Run a `cvs checkout MODULES' in DIR.
Feed the output to a *cvs* buffer, display it in the current window,
and run `cvs-mode' on it.
@ -964,7 +964,7 @@ With a prefix argument, prompt for cvs FLAGS to use."
:noexist t)))
(defun-cvs-mode (cvs-mode-checkout . NOARGS) (dir)
"Run cvs checkout against the current branch.
"Run `cvs checkout' against the current branch.
The files are stored to DIR."
(interactive
(let* ((branch (cvs-prefix-get 'cvs-branch-prefix))
@ -1082,7 +1082,7 @@ Optional argument NOSHOW if non-nil means not to display the buffer."
:noshow noshow :dont-change-disc t))
(defun cvs-update-filter (proc string)
"Filter function for pcl-cvs.
"Filter function for PCL-CVS.
This function gets the output that CVS sends to stdout. It inserts
the STRING into (process-buffer PROC) but it also checks if CVS is waiting
for a lock file. If so, it inserts a message cookie in the *cvs* buffer."
@ -1229,7 +1229,7 @@ If a prefix argument is given, move by that many lines."
(defun-cvs-mode cvs-mode-mark (&optional arg)
"Mark the fileinfo on the current line.
If the fileinfo is a directory, all the contents of that directory are
marked instead. A directory can never be marked."
marked instead. A directory can never be marked."
(interactive)
(let* ((tin (ewoc-locate cvs-cookies))
(fi (ewoc-data tin)))
@ -1397,7 +1397,7 @@ an empty list if it doesn't point to a file at all."
(nreverse fis)))
(cl-defun cvs-mode-marked (filter &optional cmd
&key read-only one file noquery)
&key read-only one file noquery)
"Get the list of marked FIS.
CMD is used to determine whether to use the marks or not.
Only files for which FILTER is applicable are returned.
@ -1636,25 +1636,25 @@ See also `cvs-diff-ignore-marks'."
(defun-cvs-mode (cvs-mode-diff-head . SIMPLE) (flags)
"Diff the selected files against the head of the current branch.
See ``cvs-mode-diff'' for more info."
See `cvs-mode-diff' for more info."
(interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags")))
(cvs-mode-diff-1 (cons "-rHEAD" flags)))
(defun-cvs-mode (cvs-mode-diff-repository . SIMPLE) (flags)
"Diff the files for changes in the repository since last co/update/commit.
See ``cvs-mode-diff'' for more info."
See `cvs-mode-diff' for more info."
(interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags")))
(cvs-mode-diff-1 (cons "-rBASE" (cons "-rHEAD" flags))))
(defun-cvs-mode (cvs-mode-diff-yesterday . SIMPLE) (flags)
"Diff the selected files against yesterday's head of the current branch.
See ``cvs-mode-diff'' for more info."
See `cvs-mode-diff' for more info."
(interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags")))
(cvs-mode-diff-1 (cons "-Dyesterday" flags)))
(defun-cvs-mode (cvs-mode-diff-vendor . SIMPLE) (flags)
"Diff the selected files against the head of the vendor branch.
See ``cvs-mode-diff'' for more info."
See `cvs-mode-diff' for more info."
(interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags")))
(cvs-mode-diff-1 (cons (concat "-r" cvs-vendor-branch) flags)))
@ -1904,7 +1904,7 @@ Executes `cvs CVSARGS CMD FLAGS' on the selected files.
FILTER is passed to `cvs-applicable-p' to only apply the command to
files for which it makes sense.
SHOW indicates that CMD should be not be run in the default temp buffer and
should be shown to the user. The buffer and mode to be used is determined
should be shown to the user. The buffer and mode to be used are determined
by `cvs-buffer-name-alist'.
DONT-CHANGE-DISC non-nil indicates that the command will not change the
contents of files. This is only used by the parser."
@ -1999,7 +1999,7 @@ This command ignores files that are not flagged as `Unknown'."
(defun cvs-mode-view-file-other-window (e)
"View the file."
"View the file in another window."
(interactive (list last-input-event))
(cvs-mode-find-file e t t))
@ -2209,7 +2209,7 @@ With prefix argument, prompt for cvs flags."
;; Byte compile files.
(defun-cvs-mode cvs-mode-byte-compile-files ()
"Run byte-compile-file on all selected files that end in '.el'."
"Run byte-compile-file on all selected files with '.el' extension."
(interactive)
(let ((marked (cvs-get-marked (cvs-ignore-marks-p "byte-compile"))))
(dolist (fi marked)
@ -2318,7 +2318,7 @@ this file, or a list of arguments to send to the program."
(defun cvs-change-cvsroot (newroot)
"Change the cvsroot."
"Change the CVSROOT."
(interactive "DNew repository: ")
(if (or (file-directory-p (expand-file-name "CVSROOT" newroot))
(y-or-n-p (concat "Warning: no CVSROOT found inside repository."
@ -2344,7 +2344,7 @@ Sensible values are `cvs-examine', `cvs-status' and `cvs-quickdir'."
(defcustom cvs-dired-use-hook '(4)
"Whether or not opening a CVS directory should run PCL-CVS.
A value of nil means never do it.
ALWAYS means to always do it unless a prefix argument is given to the
`always' means to always do it unless a prefix argument is given to the
command that prompted the opening of the directory.
Anything else means to do it only if the prefix arg is equal to this value."
:group 'pcl-cvs