diff options
Diffstat (limited to 'scripts/kde-emacs/kde-emacs-doc.el')
| -rw-r--r-- | scripts/kde-emacs/kde-emacs-doc.el | 38 |
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) |