(c-remove-any-local-eval-or-mode-variables): Use delete-region

instead of kill-line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c3f99bbb1ac8ad48fd949358734675e7923c84f..15b8105e428114ce73cc2e2d944cf0833a0892b0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-04-21  Martin Rudalics  <rudalics@gmx.at>
+
+       * progmodes/cc-mode.el
+       (c-remove-any-local-eval-or-mode-variables): Use delete-region
+       instead of kill-line.
+
 2007-04-21  Alan Mackenzie  <acm@muc.de>
 
        * progmodes/cc-cmds.el (c-electric-slash): Replace wrong use of

diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index f5da0eecc2ec3ac5462350c646423b5746c11151..c3c17a6f3c528e12caa472693dc63e0f7d9a9331 100644 (file)
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -820,7 +820,7 @@ compatible with old code; callers should always specify it."
                      "$")
              nil t)
        (beginning-of-line)
-       (kill-line 1)))
+       (delete-region (point) (progn (end-of-line) (point)))))
 
     ;; Delete the first line, if we've got one, in case it contains a mode spec.
     (unless (and lv-point
@@ -828,8 +828,7 @@ compatible with old code; callers should always specify it."
                        (forward-line 0)
                        (bobp)))
       (goto-char (point-min))
-      (unless (eobp)
-       (kill-line 1)))))
+      (delete-region (point) (progn (end-of-line) (point))))))
 
 (defun c-postprocess-file-styles ()
   "Function that post processes relevant file local variables in CC Mode.