# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 983924785 0
# Node ID 61f696f7e5f9a73047735e259eb685156665b938
# Parent  c3af189df631b30038db7619994dd4ef4e64c606
(log-edit-common-indent): New var.
(log-edit-set-common-indentation): Renamed from
log-edit-delete-common-indentation.  Use the new var.
(log-edit-insert-changelog, log-edit-done-hook): Use the new name.

diff -r c3af189df631 -r 61f696f7e5f9 lisp/log-edit.el
--- a/lisp/log-edit.el	Wed Mar 07 00:20:30 2001 +0000
+++ b/lisp/log-edit.el	Wed Mar 07 00:26:25 2001 +0000
@@ -4,7 +4,7 @@
 
 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: pcl-cvs cvs commit log
-;; Revision: $Id: log-edit.el,v 1.13 2000/12/10 21:08:55 monnier Exp $
+;; Revision: $Id: log-edit.el,v 1.14 2000/12/18 03:17:31 monnier Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -126,7 +126,7 @@
 such as a bug-tracking system.  The list of files about to be committed
 can be obtained from `log-edit-files'."
   :group 'log-edit
-  :type '(hook :options (log-edit-delete-common-indentation
+  :type '(hook :options (log-edit-set-common-indentation
 			 log-edit-add-to-changelog)))
 
 (defvar cvs-changelog-full-paragraphs t
@@ -269,7 +269,7 @@
 - use those paragraphs as the log text."
   (interactive)
   (log-edit-insert-changelog-entries (log-edit-files))
-  (log-edit-delete-common-indentation)
+  (log-edit-set-common-indentation)
   (goto-char (point-min))
   (when (looking-at "\\*\\s-+")
     (forward-line 1)
@@ -288,8 +288,13 @@
      (substitute-command-keys
       "Type `\\[log-edit-done]' to finish commit.  Try `\\[describe-function] log-edit-done' for more help."))))
 
-(defun log-edit-delete-common-indentation ()
-  "Unindent the current buffer rigidly until at least one line is flush left."
+(defcustom log-edit-common-indent 0
+  "Minimum indentation to use in `log-edit-set-common-indentation'."
+  :group 'log-edit
+  :type 'integer)
+
+(defun log-edit-set-common-indentation ()
+  "(Un)Indent the current buffer rigidly to `log-edit-common-indent'."
   (save-excursion
     (let ((common (point-max)))
       (goto-char (point-min))
@@ -297,7 +302,8 @@
         (if (not (looking-at "^[ \t]*$"))
             (setq common (min common (current-indentation))))
         (forward-line 1))
-      (indent-rigidly (point-min) (point-max) (- common)))))
+      (indent-rigidly (point-min) (point-max)
+		      (- log-edit-common-indent common)))))
 
 (defun log-edit-show-files ()
   "Show the list of files to be committed."