(change-log-next-error): Run an extra `find-file' to

go to the position of interest.
This commit is contained in:
Teodor Zlatanov 2008-08-27 18:29:44 +00:00
parent 921d84aa36
commit 5d25baef6d
2 changed files with 9 additions and 1 deletions

View file

@ -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

View file

@ -543,7 +543,10 @@ Compatibility function for \\[next-error] invocations."
(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)))