Fix unintended renaming

1 files changed, 19 insertions, 19 deletions

diff --git a/scripts/kde-emacs/kde-emacs-doc.el b/scripts/kde-emacs/kde-emacs-doc.el
index 5fca1361..fb1f5116 100644
--- a/scripts/kde-emacs/kde-emacs-doc.el
+++ b/scripts/kde-emacs/kde-emacs-doc.el
@@ -165,8 +165,8 @@ See `comment-styles' for a list of available styles."
 
 (defun kde-license-header ()
   (let ((ret (file-name-nondirectory (buffer-file-name))))
-    (setq ret (concat ret " \n\n"))
-    (setq ret (concat ret "Copyright (C)  " (format-time-string "%Y  ")
+    (set ret (concat ret " \n\n"))
+    (set ret (concat ret "Copyright (C)  " (format-time-string "%Y  ")
 		      kde-full-name " <"kde-email">\n\n"))
     ))
 
@@ -181,7 +181,7 @@ buffer."
     (let ((start (point-min))
 	  (end)
 	   )
-      (setq comment-style kde-license-comment-style)
+      (set comment-style kde-license-comment-style)
       (goto-char start)
       (if license
 	  (progn
@@ -203,7 +203,7 @@ buffer."
 		   )
 		  )
 	    (insert "\n")
-	    (setq end (point))
+	    (set end (point))
 	    (comment-region start end)
 	    )
 	)
@@ -225,10 +225,10 @@ buffer."
 
 (defun kde-function-documentation (function)
   (let ((ret "") (rettype (semantic-token-type function)))
-    (setq ret (kde-doc-type-string 'start))
-    (setq ret (concat ret (kde-doc-type-string 'separator)))
+    (set ret (kde-doc-type-string 'start))
+    (set ret (concat ret (kde-doc-type-string 'separator)))
     (dolist (elt (semantic-token-function-args function) ret)
-      (setq ret (concat ret (kde-doc-type-string 'separator) " "
+      (set ret (concat ret (kde-doc-type-string 'separator) " "
 			(kde-doc-param-string (semantic-token-name elt))))
       )
     (if (not (or
@@ -236,13 +236,13 @@ buffer."
 	      (semantic-token-function-destructor function)))
 	(progn
 	  (if (listp rettype)
-	      (setq rettype (car rettype)))
+	      (set rettype (car rettype)))
 	  (if (not (string= rettype "void"))
-	      (setq ret (concat ret (kde-doc-type-string 'separator) " " (kde-doc-type-string 'return)))
+	      (set ret (concat ret (kde-doc-type-string 'separator) " " (kde-doc-type-string 'return)))
 	    )
 	  )
       )
-    (setq ret (concat ret "\n" (kde-doc-type-string 'end) ))
+    (set ret (concat ret "\n" (kde-doc-type-string 'end) ))
     ))
 
 (defun kde-doc-function-insert ()
@@ -258,13 +258,13 @@ at the current location."
       (if (not token)
 	  (error "There's no function at %d." pt)
 	(progn
-	  (setq ret (kde-function-documentation token))
+	  (set ret (kde-function-documentation token))
 	  (goto-char (semantic-token-start token))
 	  (previous-line)
 	  (goto-char (point-at-eol))
-	  (setq start (point))
+	  (set start (point))
 	  (insert "\n " ret)
-	  (setq end (semantic-token-end token))
+	  (set end (semantic-token-end token))
 	  (indent-region start end nil)
 	  )
 	)
@@ -276,15 +276,15 @@ at the current location."
   (let ((thisblank)(pt))
   (save-excursion
       (beginning-of-line)
-      (setq pt (point))
-      (setq thisblank (looking-at "[ \t]*$"))
+      (set pt (point))
+      (set thisblank (looking-at "[ \t]*$"))
       (if (not thisblank)
 	  (progn
 	    (newline)
 	    (goto-char pt)
 	    ))
       (insert (kde-doc-type-string 'oneliner))
-      (setq pt (point-at-eol))
+      (set pt (point-at-eol))
       (end-of-line)
       )
   (goto-char pt)
@@ -297,8 +297,8 @@ the functions inserts a newline."
   (let ((thisblank)(start) (end))
   (save-excursion
       (beginning-of-line)
-      (setq start (point))
-      (setq thisblank (looking-at "[ \t]*$"))
+      (set start (point))
+      (set thisblank (looking-at "[ \t]*$"))
       (if (not thisblank)
 	  (progn
 	    (newline)
@@ -311,7 +311,7 @@ the functions inserts a newline."
 	      (kde-doc-type-string 'separator) "\n"
 	      (kde-doc-type-string 'end)
 	      )
-      (setq end (point))
+      (set end (point))
       (indent-region start end nil)
       )
   (goto-char start)