mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 05:30:43 -08:00
Code Issues Projects Releases Wiki Activity

(add-log-current-defun): Handle user-defined

Browse source 
add-log-current-function returning nil,
This commit is contained in:
Gerd Moellmann 2000-01-11 15:40:41 +00:00
parent 57df2446ea
commit aa705642e7
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,7 +1,10 @@
2000-01-11 Sun Jari Aalto <jari.aalto@poboxes.com>
2000-01-11 Jari Aalto <jari.aalto@poboxes.com>
* add-log.el (add-log-current-defun): Handle user-defined
add-log-current-function returning nil,
* add-log.el (add-change-log-entry): Insert version number
if having found a current function.
if having found a current function
* add-log.el (add-log-current-defun): Call
`add-log-current-defun-function'. Try matches at level 0 and

4
lisp/add-log.el
View file

@ -591,8 +591,8 @@ Has a preference of looking backwards."
(condition-case nil
(save-excursion
(let ((location (point)))
(cond ((functionp add-log-current-defun-function)
(funcall add-log-current-defun-function))
(cond ((and (functionp add-log-current-defun-function)
(funcall add-log-current-defun-function)))
((memq major-mode add-log-lisp-like-modes)
;; If we are now precisely at the beginning of a defun,
;; make sure beginning-of-defun finds that one