aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/log-edit.el
diff options
context:
space:
mode:
authorJuanma Barranquero2003-02-04 12:29:42 +0000
committerJuanma Barranquero2003-02-04 12:29:42 +0000
commitf1180544bb5ff44cdb45b8734734294b0a2fa7a4 (patch)
tree626b0db999b924834efc1f437eb47776ea6bd797 /lisp/log-edit.el
parent37d1e6800ca66b7977ebafb51ddb31a9de077e15 (diff)
downloademacs-f1180544bb5ff44cdb45b8734734294b0a2fa7a4.tar.gz
emacs-f1180544bb5ff44cdb45b8734734294b0a2fa7a4.zip
Trailing whitespace deleted.
Diffstat (limited to 'lisp/log-edit.el')
-rw-r--r--lisp/log-edit.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/log-edit.el b/lisp/log-edit.el
index 54cf34c7be9..f51966ab220 100644
--- a/lisp/log-edit.el
+++ b/lisp/log-edit.el
@@ -4,7 +4,7 @@
4 4
5;; Author: Stefan Monnier <monnier@cs.yale.edu> 5;; Author: Stefan Monnier <monnier@cs.yale.edu>
6;; Keywords: pcl-cvs cvs commit log 6;; Keywords: pcl-cvs cvs commit log
7;; Revision: $Id: log-edit.el,v 1.16 2001/05/11 20:42:58 monnier Exp $ 7;; Revision: $Id: log-edit.el,v 1.17 2001/10/30 04:32:58 monnier Exp $
8 8
9;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
10 10
@@ -38,9 +38,9 @@
38(require 'ring) 38(require 'ring)
39(require 'vc) 39(require 'vc)
40 40
41;;;; 41;;;;
42;;;; Global Variables 42;;;; Global Variables
43;;;; 43;;;;
44 44
45(defgroup log-edit nil 45(defgroup log-edit nil
46 "Major mode for editing RCS and CVS commit messages." 46 "Major mode for editing RCS and CVS commit messages."
@@ -328,7 +328,7 @@ To select default log text, we:
328 (interactive) 328 (interactive)
329 (when (file-readable-p "CVS/Template") 329 (when (file-readable-p "CVS/Template")
330 (insert-file-contents "CVS/Template"))) 330 (insert-file-contents "CVS/Template")))
331 331
332 332
333(defun log-edit-add-to-changelog () 333(defun log-edit-add-to-changelog ()
334 "Insert this log message into the appropriate ChangeLog file." 334 "Insert this log message into the appropriate ChangeLog file."
@@ -341,10 +341,10 @@ To select default log text, we:
341 (save-excursion 341 (save-excursion
342 (vc-comment-to-change-log))))) 342 (vc-comment-to-change-log)))))
343 343
344;;;; 344;;;;
345;;;; functions for getting commit message from ChangeLog a file... 345;;;; functions for getting commit message from ChangeLog a file...
346;;;; Courtesy Jim Blandy 346;;;; Courtesy Jim Blandy
347;;;; 347;;;;
348 348
349(defun log-edit-narrow-changelog () 349(defun log-edit-narrow-changelog ()
350 "Narrow to the top page of the current buffer, a ChangeLog file. 350 "Narrow to the top page of the current buffer, a ChangeLog file.
@@ -446,7 +446,7 @@ where LOGBUFFER is the name of the ChangeLog buffer, and each
446 (save-restriction 446 (save-restriction
447 (log-edit-narrow-changelog) 447 (log-edit-narrow-changelog)
448 (goto-char (point-min)) 448 (goto-char (point-min))
449 449
450 ;; Search for the name of FILE relative to the ChangeLog. If that 450 ;; Search for the name of FILE relative to the ChangeLog. If that
451 ;; doesn't occur anywhere, they're not using full relative 451 ;; doesn't occur anywhere, they're not using full relative
452 ;; filenames in the ChangeLog, so just look for FILE; we'll accept 452 ;; filenames in the ChangeLog, so just look for FILE; we'll accept