comparison lisp/vc.el @ 15977:abc3b3e7ea88

(vc-update-change-log): Remove code which found RCS files only in RCS directory; leave this to rcs2log, which will find entries for CVS or RCS/*,v and *,v. Lose sub-process' stderr output. Doc fix.

15976:e6d654e1fa2a

		       )
  )

;;;###autoload
(defun vc-update-change-log (&rest args)
  "Find change log file and add entries from recent RCS logs.
The mark is left at the end of the text prepended to the change log.
With prefix arg of C-u, only find log entries for the current buffer's file.
With any numeric prefix arg, find log entries for all files currently visited.
Otherwise, find log entries for all registered files in the default directory.
From a program, any arguments are passed to the `rcs2log' script."
  (interactive
   (cond ((consp current-prefix-arg)	;C-u
	  (list buffer-file-name))
	 (current-prefix-arg		;Numeric argument.
	  (let ((files nil)

	      (and file (vc-backend file)
		   (setq files (cons file files)))
	      (setq buffers (cdr buffers)))
	    files))
	 (t
	  (let ((RCS (concat default-directory "RCS")))
	    (and (file-directory-p RCS)
		 (mapcar (function
			  (lambda (f)
			    (if (string-match "\\(.*\\),v$" f)
				(substring f 0 (match-end 1))
			      f)))
			 (directory-files RCS nil "...\\|^[^.]\\|^.[^.]")))))))
  (let ((odefault default-directory)
	(full-name (or add-log-full-name
		       (user-full-name)))
	(mailing-address (or add-log-mailing-address
			     user-mail-address)))

    (undo-boundary)
    (goto-char (point-min))
    (push-mark)
    (message "Computing change log entries...")
    (message "Computing change log entries... %s"
	     (if (or (null args)
		     (eq 0 (apply 'call-process "rcs2log" nil t nil
				  "-u"
				  (concat (user-login-name)
					  "\t"
					  full-name
					  "\t"
					  mailing-address)
				  (mapcar (function
					   (lambda (f)
					     (file-relative-name
					      (if (file-name-absolute-p f)
						  f
						(concat odefault f)))))
					  args))))
		 "done" "failed"))))

;; Collect back-end-dependent stuff here

(defun vc-backend-admin (file &optional rev comment)

15977:abc3b3e7ea88

		       )
  )

;;;###autoload
(defun vc-update-change-log (&rest args)
  "Find change log file and add entries from recent RCS/CVS logs.
The mark is left at the end of the text prepended to the change log.
With prefix arg of C-u, only find log entries for the current buffer's file.
With any numeric prefix arg, find log entries for all files currently visited.
Otherwise, find log entries for all registered files in the default
directory using `rcs2log', which finds CVS logs preferentially.
From a program, any arguments are assumed to be filenames and are
passed to the `rcs2log' script after massaging to be relative to the
default directory."
  (interactive
   (cond ((consp current-prefix-arg)	;C-u
	  (list buffer-file-name))
	 (current-prefix-arg		;Numeric argument.
	  (let ((files nil)

	      (and file (vc-backend file)
		   (setq files (cons file files)))
	      (setq buffers (cdr buffers)))
	    files))
	 (t
	  ;; `rcs2log' will find the relevant RCS or CVS files
	  ;; relative to the curent directory if none supplied.
	  nil)))
  (let ((odefault default-directory)
	(full-name (or add-log-full-name
		       (user-full-name)))
	(mailing-address (or add-log-mailing-address
			     user-mail-address)))

    (undo-boundary)
    (goto-char (point-min))
    (push-mark)
    (message "Computing change log entries...")
    (message "Computing change log entries... %s"
	     (if (eq 0 (apply 'call-process "rcs2log" nil '(t nil) nil
			      "-u"
			      (concat (user-login-name)
				      "\t"
				      full-name
				      "\t"
				      mailing-address)
			      (mapcar (function
				       (lambda (f)
					 (file-relative-name
					  (if (file-name-absolute-p f)
					      f
					    (concat odefault f)))))
				      args)))
		 "done" "failed"))))

;; Collect back-end-dependent stuff here

(defun vc-backend-admin (file &optional rev comment)