From 33a9c08c34c97634f858d2427a27e63e37f28827 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Sat, 21 Apr 2007 22:00:45 +0000 Subject: [PATCH] (c-remove-any-local-eval-or-mode-variables): Use delete-region instead of kill-line. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/cc-mode.el | 5 ++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5c3f99bbb1a..15b8105e428 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2007-04-21 Martin Rudalics + + * progmodes/cc-mode.el + (c-remove-any-local-eval-or-mode-variables): Use delete-region + instead of kill-line. + 2007-04-21 Alan Mackenzie * 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 f5da0eecc2e..c3c17a6f3c5 100644 --- 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. -- 2.11.4.GIT