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

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Dan Nicolaescu <dann>   07/12/09 19:38:37

Index: verilog-mode.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/progmodes/Attic/verilog-mode.el,v
retrieving revision 1.1.2.7
retrieving revision 1.1.2.8
diff -u -b -r1.1.2.7 -r1.1.2.8
--- verilog-mode.el     9 Dec 2007 07:24:51 -0000       1.1.2.7
+++ verilog-mode.el     9 Dec 2007 19:38:37 -0000       1.1.2.8
@@ -3169,7 +3169,7 @@
 ;; Other functions
 ;;
 
-(defun kill-existing-comment ()
+(defun verilog-kill-existing-comment ()
   "Kill auto comment on this line."
   (save-excursion
     (let* (
@@ -3210,7 +3210,7 @@
            )
        (end-of-line)
        (if kill-existing-comment
-           (kill-existing-comment))
+           (verilog-kill-existing-comment))
        (delete-horizontal-space)
        (save-excursion
          (backward-sexp 1)
@@ -3287,7 +3287,7 @@
                                        (verilog-get-expr))))))
                  (end-of-line)
                  (if kill-existing-comment
-                     (kill-existing-comment))
+                     (verilog-kill-existing-comment))
                  (delete-horizontal-space)
                  (insert (concat " // " str ))
                  (if err (ding 't))
@@ -3309,7 +3309,7 @@
                          (goto-char here)
                          (end-of-line)
                          (if kill-existing-comment
-                             (kill-existing-comment))
+                             (verilog-kill-existing-comment))
                          (delete-horizontal-space)
                          (insert str)
                          (ding 't)
@@ -3450,7 +3450,7 @@
                      (goto-char here)
                      (end-of-line)
                      (if kill-existing-comment
-                         (kill-existing-comment))
+                         (verilog-kill-existing-comment))
                      (delete-horizontal-space)
                      (if (or err
                              (> (count-lines here there) 
verilog-minimum-comment-distance))
@@ -3503,7 +3503,7 @@
                  (end-of-line)
                  (if kill-existing-comment
                      (save-match-data
-                      (kill-existing-comment)))
+                      (verilog-kill-existing-comment)))
                  (delete-horizontal-space)
                  (backward-sexp)
                  (cond
@@ -5846,13 +5846,13 @@
     (insert (user-full-name))
     (insert "  <" (user-login-name) "@" (system-name) ">")
     (search-forward "<credate>") (replace-match "" t t)
-    (insert-date)
+    (verilog-insert-date)
     (search-forward "<moddate>") (replace-match "" t t)
-    (insert-date)
+    (verilog-insert-date)
     (search-forward "<copydate>") (replace-match "" t t)
-    (insert-year)
+    (verilog-insert-year)
     (search-forward "<modhist>") (replace-match "" t t)
-    (insert-date)
+    (verilog-insert-date)
     (insert " : created")
     (goto-char start)
     (let (string)
@@ -5877,9 +5877,9 @@
       (replace-match "" t t)
       )))
 
-;; verilog-header Uses the insert-date function
+;; verilog-header Uses the verilog-insert-date function
 
-(defun insert-date ()
+(defun verilog-insert-date ()
   "Insert date from the system."
   (interactive)
   (let ((timpos))
@@ -5892,7 +5892,7 @@
     (end-of-line))
     (delete-char 1))
 
-(defun insert-year ()
+(defun verilog-insert-year ()
   "Insert year from the system."
   (interactive)
   (let ((timpos))