564 |
(save-excursion |
(save-excursion |
565 |
(let ((changelog-file-name |
(let ((changelog-file-name |
566 |
(let ((default-directory |
(let ((default-directory |
567 |
(file-name-directory (expand-file-name file)))) |
(file-name-directory (expand-file-name file))) |
568 |
;; `find-change-log' uses `change-log-default-name' if set |
(visiting-buffer (find-buffer-visiting file))) |
569 |
;; and sets it before exiting, so we need to work around |
;; If there is a buffer visiting FILE, and it has a local |
570 |
;; that memoizing which is undesired here |
;; value for `change-log-default-name', use that. |
571 |
(setq change-log-default-name nil) |
(if (and visiting-buffer |
572 |
(find-change-log)))) |
(local-variable-p 'change-log-default-name |
573 |
|
visiting-buffer)) |
574 |
|
(save-excursion |
575 |
|
(set-buffer visiting-buffer) |
576 |
|
change-log-default-name) |
577 |
|
;; `find-change-log' uses `change-log-default-name' if set |
578 |
|
;; and sets it before exiting, so we need to work around |
579 |
|
;; that memoizing which is undesired here |
580 |
|
(setq change-log-default-name nil) |
581 |
|
(find-change-log))))) |
582 |
(set-buffer (find-file-noselect changelog-file-name)) |
(set-buffer (find-file-noselect changelog-file-name)) |
583 |
(unless (eq major-mode 'change-log-mode) (change-log-mode)) |
(unless (eq major-mode 'change-log-mode) (change-log-mode)) |
584 |
(goto-char (point-min)) |
(goto-char (point-min)) |