/[emacs]/emacs/lisp/log-edit.el
ViewVC logotype

Diff of /emacs/lisp/log-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by miles, Mon Sep 1 15:45:13 2003 UTC revision 1.24 by schwab, Mon Oct 6 22:52:52 2003 UTC
# Line 564  where LOGBUFFER is the name of the Chang Line 564  where LOGBUFFER is the name of the Chang
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))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26