summaryrefslogtreecommitdiffstats
path: root/scripts/kde-emacs/kde-emacs-doc.el
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/kde-emacs/kde-emacs-doc.el')
-rw-r--r--scripts/kde-emacs/kde-emacs-doc.el38
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)