changeset 79554:bc59ec18d036

(verilog-kill-existing-comment, verilog-insert-date) (verilog-insert-year): Rename in order not to pollute the global namespace from kill-existing-comment, insert-date and insert-year, respectively. (verilog-set-auto-endcomments, verilog-header): Update callers.

--- a/lisp/progmodes/verilog-mode.el	Sun Dec 09 19:19:46 2007 +0000
+++ b/lisp/progmodes/verilog-mode.el	Sun Dec 09 19:38:37 2007 +0000
@@ -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
-
-(defun insert-date ()
+;; verilog-header Uses the verilog-insert-date function
+
+(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))