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

the region is also re-indented.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b9ea32df462c73a2b689a5cbe20558d899cda110..f294d1ff27f8366c479da00eac6307f8365f18eb 100644 (file)
--- 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 b75833954fc6a8383279f0d0cb7cf147aaab49f7..7e29eb6a32256bf99c3672c00fc043215c7429de 100644 (file)
--- 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