Mercurial > emacs
changeset 97767:c7ba169cff4f
(change-log-next-error): Run an extra `find-file' to
go to the position of interest.
| author | Teodor Zlatanov <tzz@lifelogs.com> |
|---|---|
| date | Wed, 27 Aug 2008 18:29:44 +0000 |
| parents | 2b0a264c4e18 |
| children | ed788901cc00 |
| files | lisp/ChangeLog lisp/add-log.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Aug 27 17:23:29 2008 +0000 +++ b/lisp/ChangeLog Wed Aug 27 18:29:44 2008 +0000 @@ -1,3 +1,8 @@ +2008-08-27 Teodor Zlatanov <tzz@lifelogs.com> + + * add-log.el (change-log-next-error): Run an extra `find-file' to + go to the position of interest. + 2008-08-27 Tomas Abrahamsson <tab@lysator.liu.se> * textmodes/artist.el (artist-mode-init): Added comment on the
--- a/lisp/add-log.el Wed Aug 27 17:23:29 2008 +0000 +++ b/lisp/add-log.el Wed Aug 27 18:29:44 2008 +0000 @@ -543,7 +543,10 @@ (beginning-of-line) ;; if we found a place to visit... (when (looking-at change-log-file-names-re) - (change-log-goto-source))) + (change-log-goto-source) + ;; go to the file itself + (let ((file (nth 2 change-log-find-head))) + (when file (find-file file))))) (defvar change-log-mode-map (let ((map (make-sparse-keymap)))