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

[Juanma Barranquero]

Index: emacs/lisp/log-edit.el
diff -c emacs/lisp/log-edit.el:1.17 emacs/lisp/log-edit.el:1.18
*** emacs/lisp/log-edit.el:1.17 Mon Oct 29 23:32:58 2001
--- emacs/lisp/log-edit.el      Tue Feb  4 06:34:12 2003
***************
*** 4,10 ****
  
  ;; Author: Stefan Monnier <address@hidden>
  ;; Keywords: pcl-cvs cvs commit log
! ;; Revision: $Id: log-edit.el,v 1.17 2001/10/30 04:32:58 monnier Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 4,10 ----
  
  ;; Author: Stefan Monnier <address@hidden>
  ;; Keywords: pcl-cvs cvs commit log
! ;; Revision: $Id: log-edit.el,v 1.18 2003/02/04 11:34:12 lektu Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 38,46 ****
  (require 'ring)
  (require 'vc)
  
! ;;;; 
  ;;;; Global Variables
! ;;;; 
  
  (defgroup log-edit nil
    "Major mode for editing RCS and CVS commit messages."
--- 38,46 ----
  (require 'ring)
  (require 'vc)
  
! ;;;;
  ;;;; Global Variables
! ;;;;
  
  (defgroup log-edit nil
    "Major mode for editing RCS and CVS commit messages."
***************
*** 328,334 ****
    (interactive)
    (when (file-readable-p "CVS/Template")
      (insert-file-contents "CVS/Template")))
!   
  
  (defun log-edit-add-to-changelog ()
    "Insert this log message into the appropriate ChangeLog file."
--- 328,334 ----
    (interactive)
    (when (file-readable-p "CVS/Template")
      (insert-file-contents "CVS/Template")))
! 
  
  (defun log-edit-add-to-changelog ()
    "Insert this log message into the appropriate ChangeLog file."
***************
*** 341,350 ****
        (save-excursion
        (vc-comment-to-change-log)))))
  
! ;;;; 
  ;;;; functions for getting commit message from ChangeLog a file...
  ;;;; Courtesy Jim Blandy
! ;;;; 
  
  (defun log-edit-narrow-changelog ()
    "Narrow to the top page of the current buffer, a ChangeLog file.
--- 341,350 ----
        (save-excursion
        (vc-comment-to-change-log)))))
  
! ;;;;
  ;;;; functions for getting commit message from ChangeLog a file...
  ;;;; Courtesy Jim Blandy
! ;;;;
  
  (defun log-edit-narrow-changelog ()
    "Narrow to the top page of the current buffer, a ChangeLog file.
***************
*** 446,452 ****
        (save-restriction
          (log-edit-narrow-changelog)
          (goto-char (point-min))
!         
          ;; Search for the name of FILE relative to the ChangeLog.  If that
          ;; doesn't occur anywhere, they're not using full relative
          ;; filenames in the ChangeLog, so just look for FILE; we'll accept
--- 446,452 ----
        (save-restriction
          (log-edit-narrow-changelog)
          (goto-char (point-min))
! 
          ;; Search for the name of FILE relative to the ChangeLog.  If that
          ;; doesn't occur anywhere, they're not using full relative
          ;; filenames in the ChangeLog, so just look for FILE; we'll accept