From 6ca0ff7375c34ba105101e5318194bdee07edf7f Mon Sep 17 00:00:00 2001
From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Sun, 9 Dec 2007 19:38:37 +0000
Subject: [PATCH] (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.

---
 lisp/progmodes/verilog-mode.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index 4c0cbd65c18..79a4cd5c399 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -3169,7 +3169,7 @@ Limit search to point LIM."
 ;; Other functions
 ;;
 
-(defun kill-existing-comment ()
+(defun verilog-kill-existing-comment ()
   "Kill auto comment on this line."
   (save-excursion
     (let* (
@@ -3210,7 +3210,7 @@ Insert `// NAME ' if this line ends a function, task, module, primitive or inter
 	    )
 	(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 @@ Insert `// NAME ' if this line ends a function, task, module, primitive or inter
 					(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 @@ Insert `// NAME ' if this line ends a function, task, module, primitive or inter
 			  (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 @@ Insert `// NAME ' if this line ends a function, task, module, primitive or inter
 		      (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 @@ Insert `// NAME ' if this line ends a function, task, module, primitive or inter
 		  (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 @@ Bound search by LIMIT.  Adapted from
     (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 @@ Bound search by LIMIT.  Adapted from
       (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 @@ Bound search by LIMIT.  Adapted from
     (end-of-line))
     (delete-char 1))
 
-(defun insert-year ()
+(defun verilog-insert-year ()
   "Insert year from the system."
   (interactive)
   (let ((timpos))
-- 
2.39.2