Commit fe0a74f9 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/vc/add-log.el (add-log-buffer-file-name-function): Demote to defvar

and give a non-nil default value.
(add-change-log-entry): Simplify accordingly.
parent 090cf9db
2012-10-02 Stefan Monnier <monnier@iro.umontreal.ca>
* vc/add-log.el (add-log-buffer-file-name-function): Demote to defvar
and give a non-nil default value.
(add-change-log-entry): Simplify accordingly.
2012-10-01 Dmitry Gutov <dgutov@yandex.ru>
 
* vc/vc-git.el (vc-git-log-edit-toggle-signoff): New function.
......
......@@ -136,12 +136,10 @@ this variable."
:type 'boolean
:group 'change-log)
(defcustom add-log-buffer-file-name-function nil
(defvar add-log-buffer-file-name-function 'buffer-file-name
"If non-nil, function to call to identify the full filename of a buffer.
This function is called with no argument. If this is nil, the default is to
use `buffer-file-name'."
:type '(choice (const nil) function)
:group 'change-log)
This function is called with no argument. The default is to
use `buffer-file-name'.")
(defcustom add-log-file-name-function nil
"If non-nil, function to call to identify the filename for a ChangeLog entry.
......@@ -806,9 +804,7 @@ non-nil, otherwise in local time."
(let* ((defun (add-log-current-defun))
(version (and change-log-version-info-enabled
(change-log-version-number-search)))
(buf-file-name (if add-log-buffer-file-name-function
(funcall add-log-buffer-file-name-function)
buffer-file-name))
(buf-file-name (funcall add-log-buffer-file-name-function))
(buffer-file (if buf-file-name (expand-file-name buf-file-name)))
(file-name (expand-file-name (find-change-log file-name buffer-file)))
;; Set ITEM to the file name to use in the new item.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment