diff options
Diffstat (limited to 'lisp/cedet/semantic/symref/idutils.el')
| -rw-r--r-- | lisp/cedet/semantic/symref/idutils.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/cedet/semantic/symref/idutils.el b/lisp/cedet/semantic/symref/idutils.el index 3c94f01c6d9..f5d6de5fa60 100644 --- a/lisp/cedet/semantic/symref/idutils.el +++ b/lisp/cedet/semantic/symref/idutils.el @@ -40,10 +40,10 @@ See the function `cedet-idutils-search' for more details.") (cl-defmethod semantic-symref-perform-search ((tool semantic-symref-tool-idutils)) "Perform a search with IDUtils." - (let ((b (cedet-idutils-search (oref tool :searchfor) - (oref tool :searchtype) - (oref tool :resulttype) - (oref tool :searchscope) + (let ((b (cedet-idutils-search (slot-value tool 'searchfor) + (slot-value tool 'searchtype) + (slot-value tool 'resulttype) + (slot-value tool 'searchscope) )) ) (semantic-symref-parse-tool-output tool b) @@ -55,14 +55,14 @@ See the function `cedet-idutils-search' for more details.") (cl-defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-idutils)) "Parse one line of grep output, and return it as a match list. Moves cursor to end of the match." - (cond ((eq (oref tool :resulttype) 'file) + (cond ((eq (slot-value tool 'resulttype) 'file) ;; Search for files (when (re-search-forward "^\\([^\n]+\\)$" nil t) (match-string 1))) - ((eq (oref tool :searchtype) 'tagcompletions) + ((eq (slot-value tool 'searchtype) 'tagcompletions) (when (re-search-forward "^\\([^ ]+\\) " nil t) (match-string 1))) - ((eq (oref tool :resulttype) 'line-and-text) + ((eq (slot-value tool 'resulttype) 'line-and-text) (when (re-search-forward semantic-symref-idutils--line-re nil t) (list (string-to-number (match-string 2)) (expand-file-name (match-string 1) default-directory) |