(change-log-next-error): Run an extra `find-file' to
go to the position of interest.
This commit is contained in:
parent
921d84aa36
commit
5d25baef6d
2 changed files with 9 additions and 1 deletions
|
@ -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
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue