(skeleton-internal-1): Make sure the first line of

the region is also re-indented.

2 files changed, 10 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9ea32df462..f294d1ff27f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-22  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* skeleton.el (skeleton-internal-1): Make sure the first line of
+	the region is also re-indented.
+
 2000-12-22  Markus Rost  <markus.rost@mathematik.uni-regensburg.de>
 
 	* comint.el (comint-password-prompt-regexp): Support CVS.
@@ -15,16 +20,16 @@
 2000-08-22  Emmanuel Briot  <briot@gnat.com>
 
 	* xml.el (top level comment): Updated to reflect the fact that
-	white spaces are relevant in the XML file
+	white spaces are relevant in the XML file.
 	(xml-parse-file): Do not kill an existing Emacs buffer if the file
 	to parse was already edited. This allows for on-the-fly analysis
-	of XML files
+	of XML files.
 	(xml-parse-tag): Check that the casing is the same in the start
 	tag and end tag, since XML is case-sensitive.  Allows for spaces
 	in the end tag, after the name of the tag.
 	(xml-parse-attlist): Allow for the character '-' in the name of
 	attributes, as in the standard http-equiv attribute Do not save
-	the properties in the XML tree, since they are not relevant
+	the properties in the XML tree, since they are not relevant.
 
 2000-12-21  Stefan Monnier  <monnier@cs.yale.edu>
 
diff --git a/lisp/skeleton.el b/lisp/skeleton.el
index b75833954fc..7e29eb6a322 100644
--- a/lisp/skeleton.el
+++ b/lisp/skeleton.el
@@ -426,7 +426,8 @@ automatically, and you are prompted to fill in the variable parts.")))
 	((eq element '>)
 	 (if (and skeleton-regions
 		  (eq (nth 1 skeleton) '_))
-	     (indent-region (point) (car skeleton-regions) nil)
+	     (indent-region (line-beginning-position)
+			    (car skeleton-regions) nil)
 	   (indent-according-to-mode)))
 	((eq element '_)
 	 (if skeleton-regions