diff options
| author | Daniel Colascione <dancol@dancol.org> | 2014-01-06 22:00:16 -0800 |
|---|---|---|
| committer | Daniel Colascione <dancol@dancol.org> | 2014-01-06 22:00:16 -0800 |
| commit | ee916ed0380b5cfb00bfc1257056ab71f59bd4a2 (patch) | |
| tree | 66c4394ed371ec0a74141763c2d4de051dbb2ef6 | |
| parent | de7ce2d169a1ad5642715eddd95615a9c563b308 (diff) | |
| download | emacs-ee916ed0380b5cfb00bfc1257056ab71f59bd4a2.tar.gz | |
Explain recent change to log-view.el
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/vc/log-view.el | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 48f11813d49..ee11efdc7eb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-01-07 Daniel Colascione <dancol@dancol.org> + + * vc/log-view.el (log-view-beginning-of-defun): Add comment + explaining why we call `log-view-end-of-defun'. + 2014-01-07 Chong Yidong <cyd@gnu.org> * isearch.el (isearch-yank-char, isearch-yank-word) diff --git a/lisp/vc/log-view.el b/lisp/vc/log-view.el index bacf96c4677..484e40f7ac0 100644 --- a/lisp/vc/log-view.el +++ b/lisp/vc/log-view.el @@ -431,6 +431,9 @@ It assumes that a log entry starts with a line matching `log-view-message-re'." (when (null arg) (setf arg 1)) (if (< arg 0) + ;; In log view, the end of one defun is the beginning of the + ;; next, so punting to log-view-end-of-defun is safe in this + ;; context. (log-view-end-of-defun (- arg)) (let ((found t)) (while (> arg 0) |