diff options
Diffstat (limited to 'lisp/vc')
| -rw-r--r-- | lisp/vc/vc.el | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index c2f8d78408a..5491d67e700 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -2198,22 +2198,21 @@ Does nothing if IS-START-REVISION is non-nil, or if LIMIT is nil, or if PL-RETURN is 'limit-unsupported." (when (and limit (not (eq 'limit-unsupported pl-return)) (not is-start-revision)) - (save-excursion - (goto-char (point-max)) - (insert "\n") - (insert-text-button "Show 2X entries" - 'action (lambda (&rest _ignore) + (goto-char (point-max)) + (insert "\n") + (insert-text-button "Show 2X entries" + 'action (lambda (&rest _ignore) (vc-print-log-internal log-view-vc-backend log-view-vc-fileset working-revision nil (* 2 limit))) - 'help-echo "Show the log again, and double the number of log entries shown") - (insert " ") - (insert-text-button "Show unlimited entries" - 'action (lambda (&rest _ignore) - (vc-print-log-internal - log-view-vc-backend log-view-vc-fileset - working-revision nil nil)) - 'help-echo "Show the log again, including all entries")))) + 'help-echo "Show the log again, and double the number of log entries shown") + (insert " ") + (insert-text-button "Show unlimited entries" + 'action (lambda (&rest _ignore) + (vc-print-log-internal + log-view-vc-backend log-view-vc-fileset + working-revision nil nil)) + 'help-echo "Show the log again, including all entries"))) (defun vc-print-log-internal (backend files working-revision &optional is-start-revision limit) @@ -2250,8 +2249,7 @@ earlier revisions. Show up to LIMIT entries (non-nil means unlimited)." (vc-print-log-setup-buttons working-revision is-start-revision limit ret)) (lambda (bk) - (if (or working-revision (eobp)) - (vc-call-backend bk 'show-log-entry working-revision))) + (vc-call-backend bk 'show-log-entry working-revision)) (lambda (_ignore-auto _noconfirm) (vc-print-log-internal backend files working-revision is-start-revision limit)))))) |