From 5983b317f4cd4853dd22fc97dd91a1999fc20aba Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 12 Mar 2014 05:00:03 +0100 Subject: [PATCH] lisp/vc/pcvs*.el: Fix typos. * 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. --- lisp/ChangeLog | 23 +++++++++++++++++++++++ lisp/vc/pcvs-defs.el | 32 ++++++++++++++++---------------- lisp/vc/pcvs-info.el | 10 +++++----- lisp/vc/pcvs-parse.el | 8 ++++---- lisp/vc/pcvs-util.el | 6 +++--- lisp/vc/pcvs.el | 42 +++++++++++++++++++++--------------------- 6 files changed, 72 insertions(+), 49 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b99c5f07071..6ed8a4b7e25 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,26 @@ +2014-03-12 Juanma Barranquero + + * 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 * frameset.el (frameset--jump-to-register): Add autoload; it could be diff --git a/lisp/vc/pcvs-defs.el b/lisp/vc/pcvs-defs.el index 0d3f81d7a47..b89c4df5818 100644 --- a/lisp/vc/pcvs-defs.el +++ b/lisp/vc/pcvs-defs.el @@ -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.") ;; diff --git a/lisp/vc/pcvs-info.el b/lisp/vc/pcvs-info.el index 51e15d2ea6a..202f7ddfd2c 100644 --- a/lisp/vc/pcvs-info.el +++ b/lisp/vc/pcvs-info.el @@ -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 diff --git a/lisp/vc/pcvs-parse.el b/lisp/vc/pcvs-parse.el index 23225d178fd..366e90d5c9c 100644 --- a/lisp/vc/pcvs-parse.el +++ b/lisp/vc/pcvs-parse.el @@ -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)) diff --git a/lisp/vc/pcvs-util.el b/lisp/vc/pcvs-util.el index 8ef3b30759e..97ab7dfef77 100644 --- a/lisp/vc/pcvs-util.el +++ b/lisp/vc/pcvs-util.el @@ -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 diff --git a/lisp/vc/pcvs.el b/lisp/vc/pcvs.el index 4f0f1e8e7fe..e0f514406ed 100644 --- a/lisp/vc/pcvs.el +++ b/lisp/vc/pcvs.el @@ -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 -- 2.39.2