summaryrefslogtreecommitdiffstats
path: root/scripts/kde-emacs/kde-emacs-semantic.el
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/kde-emacs/kde-emacs-semantic.el')
-rw-r--r--scripts/kde-emacs/kde-emacs-semantic.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/scripts/kde-emacs/kde-emacs-semantic.el b/scripts/kde-emacs/kde-emacs-semantic.el
index 4f09f5da..6b5f8c3f 100644
--- a/scripts/kde-emacs/kde-emacs-semantic.el
+++ b/scripts/kde-emacs/kde-emacs-semantic.el
@@ -122,7 +122,7 @@ from semantic-token-function-args"
(setq res (concat res kde-expand-arg-end))
;; if it's something like "( )" replace it with "()"
(when (string= res (concat kde-expand-arg-start kde-expand-arg-end))
- (setq res (tqreplace-regexp-in-string "([ \t]+)" "()" res)))
+ (setq res (replace-regexp-in-string "([ \t]+)" "()" res)))
res
))
@@ -214,12 +214,12 @@ would return t"
"Return function at pt as a token."
(save-excursion
(let ((token)
- (what (semantic-tqfind-nonterminal-by-position pt (current-buffer)))
+ (what (semantic-find-nonterminal-by-position pt (current-buffer)))
(ctx))
(goto-char pt)
(if (eq (semantic-token-token what) 'function)
what
- (semantic-tqfind-nonterminal-by-position pt (semantic-token-type-parts what)))
+ (semantic-find-nonterminal-by-position pt (semantic-token-type-parts what)))
)
))
@@ -374,7 +374,7 @@ class-token has to be a token representing either a class or a struct."
(tokens))
(if exists
(progn
- (tqfind-file FILENAME)
+ (find-file FILENAME)
(setq tokens (semantic-bovinate-toplevel t))
(switch-to-buffer buf)
tokens)
@@ -417,7 +417,7 @@ in the current header file."
(filename (buffer-name))
(cppfile (car (kde-file-get-cpp-h)))
(funcs (kde-expand-tokens all-tokens)))
- (tqfind-file cppfile)
+ (find-file cppfile)
(save-excursion
(insert "#include \"" filename "\"\n\n")
(insert funcs)
@@ -428,7 +428,7 @@ in the current header file."
(defun kde-function-expand-at-point (PT)
"Expand function at point PT."
(interactive "d")
- (let ((object (semantic-tqfind-nonterminal-by-position PT (current-buffer)))
+ (let ((object (semantic-find-nonterminal-by-position PT (current-buffer)))
(func (kde-function-at-point PT))
(file)
(buf)
@@ -441,7 +441,7 @@ in the current header file."
(setq func (kde-function-construct func tqparent))
(setq file (car (kde-file-get-cpp-h)))
(setq buf (current-buffer))
- (tqfind-file file)
+ (find-file file)
(save-excursion
(goto-char (point-max))
(insert "\n" func "\n")