(delphi-fill-comment): Use save-restriction.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d49a24a0e8eb3eb68000f4d043358c7925ee72bc..cfadb25a5e48850997dff7cd6aa7b541ee73cc63 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-07-22  Eric Hanchrow  <offby1@blarg.net>
+
+       * progmodes/delphi.el (delphi-fill-comment): Use save-restriction.
+
 2006-07-22  Micha\e,Ak\e(Bl Cadilhac  <michael.cadilhac@lrde.org>
 
        * startup.el (user-mail-address): Initialize from the `EMAIL'

diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el
index 03ab24adf47a03bcaed755b86fef0d78b810bded..44a192ab772bb587dd64bedc2ad579c49941d243 100644 (file)
--- a/lisp/progmodes/delphi.el
+++ b/lisp/progmodes/delphi.el
@@ -1767,6 +1767,7 @@ it is a routine."
 An error is raised if not in a comment."
   (interactive)
   (save-excursion
+    (save-restriction
     (let* ((comment (delphi-current-token))
            (comment-kind (delphi-token-kind comment)))
       (if (not (delphi-is comment-kind delphi-comments))
@@ -1845,7 +1846,7 @@ An error is raised if not in a comment."
           ;; React to the entire fill change as a whole.
           (delphi-progress-start)
           (delphi-parse-region comment-start comment-end)
-          (delphi-progress-done))))))
+            (delphi-progress-done)))))))
 
 (defun delphi-new-comment-line ()
   "If in a // comment, does a newline, indented such that one is still in the