Mercurial > emacs

changeset 72068:cf25c4a644cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(delphi-fill-comment): Use save-restriction.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 22 Jul 2006 11:08:02 +0000
parents 21e42eee763c
children f8f38204f02c
files lisp/progmodes/delphi.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/delphi.el	Sat Jul 22 10:56:33 2006 +0000
+++ b/lisp/progmodes/delphi.el	Sat Jul 22 11:08:02 2006 +0000
@@ -1767,6 +1767,7 @@
 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 @@
           ;; 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