diff options
| author | Juanma Barranquero | 2003-02-04 12:29:42 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-02-04 12:29:42 +0000 |
| commit | f1180544bb5ff44cdb45b8734734294b0a2fa7a4 (patch) | |
| tree | 626b0db999b924834efc1f437eb47776ea6bd797 /lisp/log-edit.el | |
| parent | 37d1e6800ca66b7977ebafb51ddb31a9de077e15 (diff) | |
| download | emacs-f1180544bb5ff44cdb45b8734734294b0a2fa7a4.tar.gz emacs-f1180544bb5ff44cdb45b8734734294b0a2fa7a4.zip | |
Trailing whitespace deleted.
Diffstat (limited to 'lisp/log-edit.el')
| -rw-r--r-- | lisp/log-edit.el | 14 |
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 |