summaryrefslogtreecommitdiffstats
path: root/scripts/kde-emacs/kde-emacs-general.el
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/kde-emacs/kde-emacs-general.el')
-rw-r--r--scripts/kde-emacs/kde-emacs-general.el50
1 files changed, 25 insertions, 25 deletions
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