diff options
author | Eli Zaretskii <[email protected]> | 2006-07-22 11:08:55 +0000 |
---|---|---|
committer | Eli Zaretskii <[email protected]> | 2006-07-22 11:08:55 +0000 |
commit | 5b01aef2dbc45d734ad5436d10ef1af4c3227bda (patch) | |
tree | 1e513fa32b7a68bf607ec4da0c4657d3b0eef1c3 /lisp | |
parent | 23310d0e8b4506bce4a07d59866872ffdc6b8eee (diff) |
(delphi-fill-comment): Use save-restriction.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/progmodes/delphi.el | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d49a24a0e8..cfadb25a5e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-07-22 Eric Hanchrow <[email protected]> + + * progmodes/delphi.el (delphi-fill-comment): Use save-restriction. + 2006-07-22 Micha,Ak(Bl Cadilhac <[email protected]> * startup.el (user-mail-address): Initialize from the `EMAIL' diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el index 03ab24adf4..44a192ab77 100644 --- 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 |