[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/log-edit.el
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/log-edit.el |
Date: |
Mon, 06 Oct 2003 18:52:53 -0400 |
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/log-edit.el,
Andreas Schwab <=