Function: cvs-mode-add-change-log-entry-other-window

cvs-mode-add-change-log-entry-other-window is an interactive and byte-compiled function defined in pcvs.el.gz.

Signature

(cvs-mode-add-change-log-entry-other-window)

Documentation

Add a ChangeLog entry in the ChangeLog of the current directory.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/pcvs.el.gz
(defun-cvs-mode cvs-mode-add-change-log-entry-other-window ()
  "Add a ChangeLog entry in the ChangeLog of the current directory."
  (interactive)
  ;; Require `add-log' explicitly, because if it gets autoloaded when we call
  ;; add-change-log-entry-other-window below, the
  ;; add-log-buffer-file-name-function ends up unbound when we leave the `let'.
  (require 'add-log)
  (dolist (fi (cvs-mode-marked nil nil))
    (let* ((default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
	   (add-log-buffer-file-name-function
            (lambda ()
              (let ((file (expand-file-name (cvs-fileinfo->file fi))))
                (if (file-directory-p file)
                    ;; Be careful to use a directory name, otherwise add-log
                    ;; starts looking for a ChangeLog file in the
                    ;; parent dir.
                    (file-name-as-directory file)
                  file)))))
      (kill-local-variable 'change-log-default-name)
      (save-excursion (add-change-log-entry-other-window)))))