[Emacs-diffs] Changes to emacs/lisp/progmodes/vhdl-mode.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      07/04/21 19:53:39

Index: vhdl-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/vhdl-mode.el,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -b -r1.59 -r1.60
--- vhdl-mode.el        29 Jan 2007 16:56:46 -0000      1.59
+++ vhdl-mode.el        21 Apr 2007 19:53:39 -0000      1.60
@@ -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 " ")