diff options
| author | Noam Postavsky | 2018-06-11 20:00:54 -0400 |
|---|---|---|
| committer | Noam Postavsky | 2018-06-14 19:17:20 -0400 |
| commit | fcd66d059cffbcfff8325304c2c100b64d28ae29 (patch) | |
| tree | 901d63e4ce30737c2c5f45574a45a855a353ce4b | |
| parent | b635c548c681532335b89b39e0642ecdf7bf1d9c (diff) | |
| download | emacs-fcd66d059cffbcfff8325304c2c100b64d28ae29.tar.gz emacs-fcd66d059cffbcfff8325304c2c100b64d28ae29.zip | |
Keep vc-print-log from putting point at buffer end (Bug#31764)
* lisp/vc/vc.el (vc-print-log-internal): Use `save-excursion' around
`vc-print-log-setup-buttons'.
| -rw-r--r-- | lisp/vc/vc.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index 93e9c25cbfd..41a76e0007e 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el | |||
| @@ -2256,8 +2256,9 @@ earlier revisions. Show up to LIMIT entries (non-nil means unlimited)." | |||
| 2256 | (vc-call-backend bk 'print-log files-arg buf shortlog | 2256 | (vc-call-backend bk 'print-log files-arg buf shortlog |
| 2257 | (when is-start-revision working-revision) limit)) | 2257 | (when is-start-revision working-revision) limit)) |
| 2258 | (lambda (_bk _files-arg ret) | 2258 | (lambda (_bk _files-arg ret) |
| 2259 | (vc-print-log-setup-buttons working-revision | 2259 | (save-excursion |
| 2260 | is-start-revision limit ret)) | 2260 | (vc-print-log-setup-buttons working-revision |
| 2261 | is-start-revision limit ret))) | ||
| 2261 | ;; When it's nil, point really shouldn't move (bug#15322). | 2262 | ;; When it's nil, point really shouldn't move (bug#15322). |
| 2262 | (when working-revision | 2263 | (when working-revision |
| 2263 | (lambda (bk) | 2264 | (lambda (bk) |