diff options
| author | Chong Yidong | 2007-04-21 20:06:49 +0000 |
|---|---|---|
| committer | Chong Yidong | 2007-04-21 20:06:49 +0000 |
| commit | a89d4ed8aea125f8cbd1dda26211a6ee67913242 (patch) | |
| tree | dda87f72e9ed155eb38d1dffcf3eb3e44a6879b7 | |
| parent | 041d3802a08fc25532574fb8b7d1592bfbddea47 (diff) | |
| download | emacs-a89d4ed8aea125f8cbd1dda26211a6ee67913242.tar.gz emacs-a89d4ed8aea125f8cbd1dda26211a6ee67913242.zip | |
(perl-indent-command): Use delete-region instead of kill-region.
| -rw-r--r-- | lisp/progmodes/perl-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/perl-mode.el b/lisp/progmodes/perl-mode.el index 255f63aed41..75920a43aa7 100644 --- a/lisp/progmodes/perl-mode.el +++ b/lisp/progmodes/perl-mode.el | |||
| @@ -647,10 +647,10 @@ possible action from the following list: | |||
| 647 | (if (and comment-start-skip | 647 | (if (and comment-start-skip |
| 648 | (re-search-forward comment-start-skip eol 'move)) | 648 | (re-search-forward comment-start-skip eol 'move)) |
| 649 | (if (eolp) | 649 | (if (eolp) |
| 650 | (progn ; kill existing comment | 650 | (progn ; delete existing comment |
| 651 | (goto-char (match-beginning 0)) | 651 | (goto-char (match-beginning 0)) |
| 652 | (skip-chars-backward " \t") | 652 | (skip-chars-backward " \t") |
| 653 | (kill-region (point) eol)) | 653 | (delete-region (point) eol)) |
| 654 | (if (or (< oldpnt (point)) (= oldpnt eol)) | 654 | (if (or (< oldpnt (point)) (= oldpnt eol)) |
| 655 | (indent-for-comment) ; indent existing comment | 655 | (indent-for-comment) ; indent existing comment |
| 656 | (end-of-line))) | 656 | (end-of-line))) |