From a6a23aed1b0edfbc71afc07343e1e14883daf852 Mon Sep 17 00:00:00 2001
From: Darrell Anderson <humanreadable@yahoo.com>
Date: Sun, 16 Feb 2014 14:28:28 -0600
Subject: Fix unintended renaming

---
 scripts/kde-emacs/kde-emacs-general.el | 50 +++++++++++++++++-----------------
 1 file changed, 25 insertions(+), 25 deletions(-)

(limited to 'scripts/kde-emacs/kde-emacs-general.el')

diff --git a/scripts/kde-emacs/kde-emacs-general.el b/scripts/kde-emacs/kde-emacs-general.el
index be34047c..23bc9b7f 100644
--- a/scripts/kde-emacs/kde-emacs-general.el
+++ b/scripts/kde-emacs/kde-emacs-general.el
@@ -52,61 +52,61 @@ return (\"test.cpp\" t)."
 	 (listit nil))
     (cond
      ((member ext kde-header-files)
-      (setq listit kde-source-files)
+      (set listit kde-source-files)
       (while (and listit (not ret)) ; loop over the list but stop once ret is set
-	(setq path (concat nname "." (car listit)))
+	(set path (concat nname "." (car listit)))
 	(if (file-readable-p path)
-	    (setq ret (cons path t))
+	    (set ret (cons path t))
 	  )
 	(if (not ret)
 	    (if (string-match "_p$" nname)
 		(progn 
-		  (setq path (concat (substring nname 0 (string-match "_p$" nname)) "." (car listit)))
+		  (set path (concat (substring nname 0 (string-match "_p$" nname)) "." (car listit)))
 		  (if (file-readable-p path)
-		      (setq ret (cons path t))
+		      (set ret (cons path t))
 		    )))
 	  )
 	(if (not ret)
 	    (progn ; look in kde-source-directory
-	      (setq path (kde-find-file (file-name-nondirectory path) kde-source-directory))
+	      (set path (kde-find-file (file-name-nondirectory path) kde-source-directory))
 	      (if (and
 		   path
 		   (file-readable-p path))
-		  (setq ret (cons path t))
+		  (set ret (cons path t))
 		))
 	  )
-	(setq listit (cdr listit)) ; ++listit
+	(set listit (cdr listit)) ; ++listit
 	)
       ; not found, will create one
       (if (not ret)
-	  (setq ret (cons (concat nname "." kde-prefered-source-extension) nil ))
+	  (set ret (cons (concat nname "." kde-prefered-source-extension) nil ))
 	))
 
      ((member ext kde-source-files)
-      (setq listit kde-header-files)
+      (set listit kde-header-files)
       (while (and listit (not ret)) ; loop over the list but stop once ret is set
-	(setq path (concat nname "." (car listit)))
+	(set path (concat nname "." (car listit)))
         ; look in current dir
 	(if (file-readable-p path)
-	    (setq ret (cons path t)))
+	    (set ret (cons path t)))
 	(if (not ret) ;check for header_p.h files
-	    (progn (setq path (concat nname "_p." (car listit)))
+	    (progn (set path (concat nname "_p." (car listit)))
 		   (if (file-readable-p path)
-		       (setq ret (cons path t)))))
+		       (set ret (cons path t)))))
 	(if (not (file-readable-p path))
 	    (progn ;  look in kde-include-directory
-	      (setq path (kde-find-file (file-name-nondirectory path) kde-include-directory))
+	      (set path (kde-find-file (file-name-nondirectory path) kde-include-directory))
 	      (if (and 
 		   path
 		   (file-readable-p path))
-		  (setq ret (cons path t))
+		  (set ret (cons path t))
 		))
 	  )
-	(setq listit (cdr listit)) ; ++listit
+	(set listit (cdr listit)) ; ++listit
 	)
       ; not found, will create one
       (if (not ret)
-	  (setq ret (cons (concat nname "." (car kde-header-files)) nil ))
+	  (set ret (cons (concat nname "." (car kde-header-files)) nil ))
 	))
      )
     ret
@@ -129,10 +129,10 @@ return (\"test.cpp\" t)."
   (let ((start (point))
 	end)
     (save-excursion
-      (setq end (re-search-backward "[^ \t]" (point-at-bol) t))
+      (set end (re-search-backward "[^ \t]" (point-at-bol) t))
       (if (not end)
-	  (setq end (point-at-bol))
-	(setq end (1+ end))))
+	  (set end (point-at-bol))
+	(set end (1+ end))))
     (delete-backward-char (- start end))))
 
 (defun kde-skip-blank-lines ()
@@ -146,10 +146,10 @@ at a first non-blank line"
 	    (string-match "^[ \t\r\n]+$" mstring)
 	    (and (string= mstring "")
 		 (= ret 0)))
-        (setq ret (forward-line -1))	; if ret != 0, we stop, since we're at the first line...
-	(setq start (point-at-bol)
+        (set ret (forward-line -1))	; if ret != 0, we stop, since we're at the first line...
+	(set start (point-at-bol)
 	      end   (point-at-eol))
-	(setq mstring (buffer-substring start end))
+	(set mstring (buffer-substring start end))
 	)
     ))
 
@@ -157,7 +157,7 @@ at a first non-blank line"
   "Skip back from current point past any preceding C-based comments at the beginning of lines.
 Presumes no \"/*\" strings are nested within multi-line comments."
   (let ((opoint))
-    (while (progn (setq opoint (point))
+    (while (progn (set opoint (point))
 		  ;; To previous line
 		  (if (zerop (forward-line -1))
 		      (cond
-- 
cgit v1.2.1