[Emacs-diffs] Changes to emacs/lisp/log-edit.el

[Andreas Schwab]

Index: emacs/lisp/log-edit.el
diff -c emacs/lisp/log-edit.el:1.23 emacs/lisp/log-edit.el:1.24
*** emacs/lisp/log-edit.el:1.23 Mon Sep  1 11:45:13 2003
--- emacs/lisp/log-edit.el      Mon Oct  6 18:52:52 2003
***************
*** 564,575 ****
    (save-excursion
      (let ((changelog-file-name
           (let ((default-directory
!                  (file-name-directory (expand-file-name file))))
!            ;; `find-change-log' uses `change-log-default-name' if set
!            ;; and sets it before exiting, so we need to work around
!            ;; that memoizing which is undesired here
!            (setq change-log-default-name nil)
!            (find-change-log))))
        (set-buffer (find-file-noselect changelog-file-name))
        (unless (eq major-mode 'change-log-mode) (change-log-mode))
        (goto-char (point-min))
--- 564,584 ----
    (save-excursion
      (let ((changelog-file-name
           (let ((default-directory
!                  (file-name-directory (expand-file-name file)))
!                (visiting-buffer (find-buffer-visiting file)))
!            ;; If there is a buffer visiting FILE, and it has a local
!            ;; value for `change-log-default-name', use that.
!            (if (and visiting-buffer
!                     (local-variable-p 'change-log-default-name
!                                       visiting-buffer))
!                (save-excursion
!                  (set-buffer visiting-buffer)
!                  change-log-default-name)
!              ;; `find-change-log' uses `change-log-default-name' if set
!              ;; and sets it before exiting, so we need to work around
!              ;; that memoizing which is undesired here
!              (setq change-log-default-name nil)
!              (find-change-log)))))
        (set-buffer (find-file-noselect changelog-file-name))
        (unless (eq major-mode 'change-log-mode) (change-log-mode))
        (goto-char (point-min))