diff options
Diffstat (limited to 'lisp/vc/ediff-util.el')
| -rw-r--r-- | lisp/vc/ediff-util.el | 58 |
1 files changed, 33 insertions, 25 deletions
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el index 74c6aba1e47..d079711f611 100644 --- a/lisp/vc/ediff-util.el +++ b/lisp/vc/ediff-util.el @@ -513,7 +513,7 @@ to invocation.") ;; This function assumes that we are in the window where control buffer is ;; to reside. (defun ediff-setup-control-buffer (ctl-buf) - "Set up window for control buffer." + "Set up window for control buffer CTL-BUF." (if (window-dedicated-p) (set-buffer ctl-buf) ; we are in control frame but just in case (switch-to-buffer ctl-buf)) @@ -661,7 +661,7 @@ if necessary." (message "") )) -;; Not bound to any key---to dangerous. A user can do it if necessary. +;; Not bound to any key---too dangerous. A user can do it if necessary. (defun ediff-revert-buffers-then-recompute-diffs (noconfirm) "Revert buffers A, B and C. Then rerun Ediff on file A and file B." (interactive "P") @@ -696,11 +696,12 @@ if necessary." (ediff-merge-buffers bufA bufB))) (ediff-update-diffs)))) - -;; optional NO-REHIGHLIGHT says to not rehighlight buffers (defun ediff-recenter (&optional no-rehighlight) "Bring the highlighted region of all buffers being compared into view. -Reestablish the default window display." +Reestablish the default window display. + +If optional NO-REHIGHLIGHT is non-nil, do not rehighlight +buffers." (interactive) (ediff-barf-if-not-control-buffer) (let (buffer-read-only) @@ -965,7 +966,7 @@ Please report this bug to bug-gnu-emacs@gnu.org") (message "Showing ancestor buffer"))) (defun ediff-make-or-kill-fine-diffs (arg) - "Compute fine diffs. With negative prefix arg, kill fine diffs. + "Compute fine diffs. With negative prefix ARG, kill fine diffs. In both cases, operates on the current difference region." (interactive "P") (ediff-barf-if-not-control-buffer) @@ -1329,7 +1330,7 @@ To change the default, set the variable `ediff-use-toolbar-p', which see." ;; Merging (defun ediff-toggle-show-clashes-only () - "Toggle the mode that shows only the merge regions where both variants differ from the ancestor." + "Toggle mode showing only merge regions where both variants differ from ancestor." (interactive) (ediff-barf-if-not-control-buffer) (if (not ediff-merge-with-ancestor-job) @@ -1510,7 +1511,7 @@ the one half of the height of window-A." (defun ediff-scroll-horizontally (&optional arg) "Horizontally scroll buffers A, B (and C if appropriate). -If an argument is given, that is how many columns are scrolled, else nearly +With prefix argument ARG, scroll that many columns, else nearly the width of the A/B/C windows." (interactive "P") (ediff-barf-if-not-control-buffer) @@ -1678,7 +1679,7 @@ the width of the A/B/C windows." (defun ediff-next-difference (&optional arg) "Advance to the next difference. -With a prefix argument, go forward that many differences." +With a prefix argument ARG, go forward that many differences." (interactive "p") (ediff-barf-if-not-control-buffer) (if (< ediff-current-difference ediff-number-of-differences) @@ -1729,7 +1730,7 @@ With a prefix argument, go forward that many differences." (defun ediff-previous-difference (&optional arg) "Go to the previous difference. -With a prefix argument, go back that many differences." +With a prefix argument ARG, go back that many differences." (interactive "p") (ediff-barf-if-not-control-buffer) (if (> ediff-current-difference -1) @@ -1779,8 +1780,9 @@ With a prefix argument, go back that many differences." ;; The diff number is as perceived by the user (i.e., 1+ the internal ;; representation) (defun ediff-jump-to-difference (difference-number) - "Go to the difference specified as a prefix argument. -If the prefix is negative, count differences from the end." + "Go to the difference specified as a prefix argument DIFFERENCE-NUMBER. +If the prefix argument is negative, count differences from the +end." (interactive "p") (ediff-barf-if-not-control-buffer) (setq difference-number @@ -1801,8 +1803,9 @@ If the prefix is negative, count differences from the end." The buffer depends on last command character \(a, b, or c) that invoked this command. For instance, if the command was `ga' then the point value in buffer A is used. -With a prefix argument, synchronize all files around the current point position -in the specified buffer." + +With a prefix argument ARG, synchronize all files around the +current point position in the specified buffer." (interactive "P") (ediff-barf-if-not-control-buffer) (let* ((buf-type (ediff-char-to-buftype last-command-event)) @@ -1898,15 +1901,17 @@ in the specified buffer." (defun ediff-diff-to-diff (arg &optional keys) "Copy buffer-X'th difference region to buffer Y (X,Y are A, B, or C). -If numerical prefix argument, copy the difference specified in the arg. +With numerical prefix argument ARG, copy the difference specified +in the arg. Otherwise, copy the difference given by `ediff-current-difference'. This command assumes it is bound to a 2-character key sequence, `ab', `ba', `ac', etc., which is used to determine the types of buffers to be used for copying difference regions. The first character in the sequence specifies the source buffer and the second specifies the target. -If the second optional argument, a 2-character string, is given, use it to -determine the source and the target buffers instead of the command keys." +If optional argument KEYS, a 2-character string, is given, use it +to determine the source and the target buffers instead of the +command keys." (interactive "P") (ediff-barf-if-not-control-buffer) (or keys (setq keys (this-command-keys))) @@ -2137,8 +2142,9 @@ ARG is a prefix argument. If nil, copy the current difference region." (defun ediff-restore-diff (arg &optional key) "Restore ARGth diff from `ediff-killed-diffs-alist'. ARG is a prefix argument. If ARG is nil, restore the current-difference. -If the second optional argument, a character, is given, use it to -determine the target buffer instead of `ediff-last-command-char'." +If the second optional argument KEY, a character, is given, use +it to determine the target buffer instead of +`ediff-last-command-char'." (interactive "P") (ediff-barf-if-not-control-buffer) (if (numberp arg) @@ -2157,8 +2163,8 @@ ARG is a prefix argument. If nil, restore the current diff." (defun ediff-toggle-regexp-match () - "Toggle between focusing and hiding of difference regions that match -a regular expression typed in by the user." + "Toggle between focusing and hiding difference regions matching a regexp. +Prompt the user for regular expression." (interactive) (ediff-barf-if-not-control-buffer) (let ((regexp-A "") @@ -2358,9 +2364,11 @@ flags of the compared file buffers, kills Ediff buffers for this session \(but not buffers A, B, C). If `ediff-keep-variants' is nil, the user will be asked whether the buffers -containing the variants should be removed \(if they haven't been modified). -If it is t, they will be preserved unconditionally. A prefix argument, -temporarily reverses the meaning of this variable." +containing the variants should be removed (if they haven't been modified). +If it is t, they will be preserved unconditionally. + +With prefix argument REVERSE-DEFAULT-KEEP-VARIANTS, temporarily +reverse the meaning of this variable." (interactive "P") (ediff-barf-if-not-control-buffer) (let ((ctl-buf (current-buffer)) @@ -3269,7 +3277,7 @@ Hit \\[ediff-recenter] to reset the windows afterward." `wa' saves buffer A, `wb' saves buffer B, `wc' saves buffer C, and `wd' saves the diff output. -With prefix argument, `wd' saves plain diff output. +With prefix argument ARG, `wd' saves plain diff output. Without an argument, it saves customized diff argument, if available \(and plain output, if customized output was not generated)." (interactive "P") |