/[emacs]/emacs/lisp/pcvs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.59.4.1 by handa, Fri Apr 16 12:50:08 2004 UTC revision 1.59.4.2 by miles, Mon Jun 28 07:28:44 2004 UTC
# Line 764  before calling the real function `" (sym Line 764  before calling the real function `" (sym
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."
# Line 1312  If there are any marked tins, and IGNORE Line 1312  If there are any marked tins, and IGNORE
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))
# Line 1568  See ``cvs-mode-diff'' for more info." Line 1565  See ``cvs-mode-diff'' for more info."
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."
# Line 1754  Signal an error if there is no backup fi Line 1757  Signal an error if there is no backup fi
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)
# Line 1774  BUF is the buffer to be used for cvs' ou Line 1777  BUF is the buffer to be used for cvs' ou
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))))

Legend:
Removed from v.1.59.4.1  
changed lines
  Added in v.1.59.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26