Fix unintended renaming

1 files changed, 20 insertions, 20 deletions

diff --git a/scripts/kde-emacs/klaralv.el b/scripts/kde-emacs/klaralv.el
index b4d7c6c8..2b6989c4 100644
--- a/scripts/kde-emacs/klaralv.el
+++ b/scripts/kde-emacs/klaralv.el
@@ -20,18 +20,18 @@
 ;; ------------------------------ INSTALLATION ------------------------------
 ;; To use this file, add the current directory to your load path.
 ;; you do this by inserting something like the following to your .emacs:
-;; (setq load-path (cons "/home/blackie/Emacs/" load-path))
+;; (set load-path (cons "/home/blackie/Emacs/" load-path))
 ;;
 ;; Next insert the following line into your .emacs
 ;; (require 'klaralv)
 ;; (global-set-key [(f5)] 'kdab-insert-header)
 ;; (global-set-key [(shift f5)] 'kdab-insert-forward-decl)
-;; (setq kdab-qt-documentation "file://usr/local/qt/html/doc/XXX.html")
+;; (set kdab-qt-documentation "file://usr/local/qt/html/doc/XXX.html")
 ;; (global-set-key [(control f5)] 'kdab-lookup-qt-documentation)
 ;; 
 ;; If you use QTopia, and do not want include files to be prefixed with qpe/,
 ;; as in qpe/qpeapplication, then insert the following code in your setup
-;; (setq kdab-prefix-qpe nil)
+;; (set kdab-prefix-qpe nil)
 
 ;; ------------------------------ CONFIGURATION ------------------------------
 (defvar kdab-qt-documentation
@@ -245,10 +245,10 @@
 (defun kdab-get-special-include-list ()
   (let (elm header classes (list kdab-qpe-includes) filename (result kdab-special-includes))
     (while list
-      (setq elm (car list))
-      (setq list (cdr list))
-      (setq filename (concat (if kdab-prefix-qpe "qpe/" "") (symbol-name (car elm))))
-      (setq result (cons (cons (intern filename) (cdr elm)) result)))
+      (set elm (car list))
+      (set list (cdr list))
+      (set filename (concat (if kdab-prefix-qpe "qpe/" "") (symbol-name (car elm))))
+      (set result (cons (cons (intern filename) (cdr elm)) result)))
     result))
 
 ;; Lookup class `cls' in kdab-special-includes and return the associate include file name
@@ -261,9 +261,9 @@
               (classes (cdr elm)))
         ( while (and classes (not found))
           (if (string= (downcase cls) (downcase (symbol-name (car classes))))
-              (setq found include-file)
-            (setq classes (cdr classes)))))
-      (setq list (cdr list)))
+              (set found include-file)
+            (set classes (cdr classes)))))
+      (set list (cdr list)))
     (if found
         (symbol-name found)
       nil)  ; return value
@@ -304,15 +304,15 @@
       ;; decide on the header file.
       (if (file-exists-p (concat word-with-case ".h"))
           (progn ; file exists in given case in pwd.
-            (setq header (concat word-with-case ".h"))
-            (setq is-local 't))
+            (set header (concat word-with-case ".h"))
+            (set is-local 't))
         (if  (file-exists-p (concat word ".h")) ; file exists in lowercase in pwd
             (progn
-              (setq header (concat word ".h"))
-              (setq is-local 't))
+              (set header (concat word ".h"))
+              (set is-local 't))
           (progn ; header in <..> path
-            (setq header special-header)
-            (setq is-local nil))))
+            (set header special-header)
+            (set is-local nil))))
 
       (kdab-insert-include-file header is-local t))))
 
@@ -395,12 +395,12 @@
 (defun is-qpe-class (class)
   (let ((list kdab-qpe-includes) classes (found nil))
     (while (and (not found) list)
-      (setq classes (cdr (car list)))
+      (set classes (cdr (car list)))
       (while classes
         (if (string= (downcase (symbol-name (car classes))) (downcase class))
-            (setq found 't))
-        (setq classes (cdr classes)))
-      (setq list (cdr list)))
+            (set found 't))
+        (set classes (cdr classes)))
+      (set list (cdr list)))
     found))
         
 ;--------------------------------------------------------------------------------