764 |
(interactive) |
(interactive) |
765 |
(cvs-mode! ',fun-1))))) |
(cvs-mode! ',fun-1))))) |
766 |
|
|
767 |
(t (error "unknown style %s in `defun-cvs-mode'" style))))) |
(t (error "Unknown style %s in `defun-cvs-mode'" style))))) |
768 |
|
|
769 |
(defun-cvs-mode cvs-mode-kill-process () |
(defun-cvs-mode cvs-mode-kill-process () |
770 |
"Kill the temporary buffer and associated process." |
"Kill the temporary buffer and associated process." |
1312 |
Otherwise, if the cursor selects a directory, and IGNORE-CONTENTS is |
Otherwise, if the cursor selects a directory, and IGNORE-CONTENTS is |
1313 |
nil, return all files in it, else return just the directory. |
nil, return all files in it, else return just the directory. |
1314 |
Otherwise return (a list containing) the file the cursor points to, or |
Otherwise return (a list containing) the file the cursor points to, or |
1315 |
an empty list if it doesn't point to a file at all. |
an empty list if it doesn't point to a file at all." |
|
|
|
|
Args: &optional IGNORE-MARKS IGNORE-CONTENTS." |
|
|
|
|
1316 |
(let ((fis nil)) |
(let ((fis nil)) |
1317 |
(dolist (fi (if (and (boundp 'cvs-minor-current-files) |
(dolist (fi (if (and (boundp 'cvs-minor-current-files) |
1318 |
(consp cvs-minor-current-files)) |
(consp cvs-minor-current-files)) |
1565 |
(interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags"))) |
(interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags"))) |
1566 |
(cvs-mode-diff-1 (cons "-rHEAD" flags))) |
(cvs-mode-diff-1 (cons "-rHEAD" flags))) |
1567 |
|
|
1568 |
|
(defun-cvs-mode (cvs-mode-diff-yesterday . SIMPLE) (flags) |
1569 |
|
"Diff the selected files against yesterday's head of the current branch. |
1570 |
|
See ``cvs-mode-diff'' for more info." |
1571 |
|
(interactive (list (cvs-flags-query 'cvs-diff-flags "cvs diff flags"))) |
1572 |
|
(cvs-mode-diff-1 (cons "-Dyesterday" flags))) |
1573 |
|
|
1574 |
(defun-cvs-mode (cvs-mode-diff-vendor . SIMPLE) (flags) |
(defun-cvs-mode (cvs-mode-diff-vendor . SIMPLE) (flags) |
1575 |
"Diff the selected files against the head of the vendor branch. |
"Diff the selected files against the head of the vendor branch. |
1576 |
See ``cvs-mode-diff'' for more info." |
See ``cvs-mode-diff'' for more info." |
1757 |
|
|
1758 |
|
|
1759 |
(defun cvs-is-within-p (fis dir) |
(defun cvs-is-within-p (fis dir) |
1760 |
"Non-nil is buffer is inside one of FIS (in DIR)." |
"Non-nil if buffer is inside one of FIS (in DIR)." |
1761 |
(when (stringp buffer-file-name) |
(when (stringp buffer-file-name) |
1762 |
(setq buffer-file-name (expand-file-name buffer-file-name)) |
(setq buffer-file-name (expand-file-name buffer-file-name)) |
1763 |
(let (ret) |
(let (ret) |
1777 |
DONT-CHANGE-DISC non-nil indicates that the command will not change the |
DONT-CHANGE-DISC non-nil indicates that the command will not change the |
1778 |
contents of files. This is only used by the parser. |
contents of files. This is only used by the parser. |
1779 |
POSTPROC is a list of expressions to be evaluated at the very end (after |
POSTPROC is a list of expressions to be evaluated at the very end (after |
1780 |
parsing if applicable). It will be prepended with `progn' is necessary." |
parsing if applicable). It will be prepended with `progn' if necessary." |
1781 |
(let ((def-dir default-directory)) |
(let ((def-dir default-directory)) |
1782 |
;; Save the relevant buffers |
;; Save the relevant buffers |
1783 |
(save-some-buffers nil (lambda () (cvs-is-within-p fis def-dir)))) |
(save-some-buffers nil (lambda () (cvs-is-within-p fis def-dir)))) |