Mercurial > emacs

changeset 77371:819640d82c9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vhdl-template-type) (vhdl-template-record, vhdl-template-nature) (vhdl-template-configuration-spec, vhdl-template-component-inst) (vhdl-template-break, vhdl-regress-line, vhdl-electric-tab): Use delete-region instead of kill-word and kill-line.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 21 Apr 2007 19:53:39 +0000
parents 2c0170938587
children 5e66e9d50fc5
files lisp/progmodes/vhdl-mode.el
diffstat 1 files changed, 12 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/vhdl-mode.el	Sat Apr 21 19:53:28 2007 +0000
+++ b/lisp/progmodes/vhdl-mode.el	Sat Apr 21 19:53:39 2007 +0000
@@ -7028,7 +7028,7 @@
 	    (indent-to comment-column)
 	    (indent-according-to-mode))
 	   (t				; inline comment indent
-	    (kill-line -0))))
+	    (delete-region (line-beginning-position) (point)))))
     ;; dedent
     ((and (>= (current-indentation) vhdl-basic-offset)
 	  (or (eq last-command 'vhdl-electric-tab)
@@ -7161,7 +7161,7 @@
 	(when (not (looking-at "^\\s-*\\(--.*\\)?$"))
 	  (end-of-line)
 	  (if (search-backward " -- ((" (vhdl-point 'bol) t)
-	      (kill-line))
+	      (delete-region (point) (line-end-position)))
 	  (insert " -- ")
 	  (insert (format "%s" expurgated))))))
   (vhdl-keep-region-active))
@@ -8346,7 +8346,9 @@
 	    (progn (vhdl-insert-keyword "FOR ")
 		   (if (vhdl-template-field "[quantity name]" " USE " t)
 		       (progn (vhdl-template-field "quantity name" " => ") t)
-		     (kill-word -1) nil))
+		     (delete-region (point)
+				    (progn (forward-word -1) (point)))
+		     nil))
 	    (vhdl-template-field "[quantity name]" " => " t))
       (vhdl-template-field "expression")
       (setq position (point))
@@ -8482,7 +8484,7 @@
       (setq position (point))
       (vhdl-insert-keyword "PORT ")
       (unless (vhdl-template-map position t t)
-	(kill-line -0)
+	(delete-region (line-beginning-position) (point))
 	(delete-char -1))
       (insert ";"))))
 
@@ -8573,7 +8575,7 @@
 	       (setq position (point))
 	       (vhdl-insert-keyword "PORT ")
 	       (unless (vhdl-template-map position t t)
-		 (kill-line -0)
+		 (delete-region (line-beginning-position) (point))
 		 (delete-char -1))
 	       (insert ";")
 	       t)
@@ -9116,11 +9118,11 @@
 	(cond ((equal definition "")
 	       (insert ";"))
 	      ((equal definition "ARRAY")
-	       (kill-word -1)
+	       (delete-region (point) (progn (forward-word -1) (point)))
 	       (vhdl-template-array 'nature t))
 	      ((equal definition "RECORD")
 	       (setq mid-pos (point-marker))
-	       (kill-word -1)
+	       (delete-region (point) (progn (forward-word -1) (point)))
 	       (vhdl-template-record 'nature name t))
 	      (t
 	       (vhdl-insert-keyword " ACROSS ")
@@ -9435,7 +9437,7 @@
 	(insert "\n")
 	(indent-to (+ margin vhdl-basic-offset))
 	(setq first nil))
-      (kill-line -0)
+      (delete-region (line-beginning-position) (point))
       (indent-to margin)
       (vhdl-insert-keyword "END RECORD")
       (unless (vhdl-standard-p '87) (and name (insert " " name)))
@@ -9600,11 +9602,11 @@
 	       (delete-backward-char 4)
 	       (insert ";"))
 	      ((equal definition "ARRAY")
-	       (kill-word -1)
+	       (delete-region (point) (progn (forward-word -1) (point)))
 	       (vhdl-template-array 'type t))
 	      ((equal definition "RECORD")
 	       (setq mid-pos (point-marker))
-	       (kill-word -1)
+	       (delete-region (point) (progn (forward-word -1) (point)))
 	       (vhdl-template-record 'type name t))
 	      ((equal definition "ACCESS")
 	       (insert " ")