diff options
Diffstat (limited to 'lisp/cedet/semantic/symref')
-rw-r--r-- | lisp/cedet/semantic/symref/cscope.el | 4 | ||||
-rw-r--r-- | lisp/cedet/semantic/symref/global.el | 4 | ||||
-rw-r--r-- | lisp/cedet/semantic/symref/grep.el | 4 | ||||
-rw-r--r-- | lisp/cedet/semantic/symref/idutils.el | 4 |
4 files changed, 8 insertions, 8 deletions
diff --git a/lisp/cedet/semantic/symref/cscope.el b/lisp/cedet/semantic/symref/cscope.el index 3e8c34b9832..91804f4ac9d 100644 --- a/lisp/cedet/semantic/symref/cscope.el +++ b/lisp/cedet/semantic/symref/cscope.el @@ -42,7 +42,7 @@ the hit list. See the function `cedet-cscope-search' for more details.") -(defmethod semantic-symref-perform-search ((tool semantic-symref-tool-cscope)) +(cl-defmethod semantic-symref-perform-search ((tool semantic-symref-tool-cscope)) "Perform a search with GNU Global." (let* ((rootproj (when (and (featurep 'ede) ede-minor-mode) (ede-toplevel))) @@ -60,7 +60,7 @@ See the function `cedet-cscope-search' for more details.") (semantic-symref-parse-tool-output tool b) )) -(defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-cscope)) +(cl-defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-cscope)) "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) diff --git a/lisp/cedet/semantic/symref/global.el b/lisp/cedet/semantic/symref/global.el index 1f5aecb576c..88713474d69 100644 --- a/lisp/cedet/semantic/symref/global.el +++ b/lisp/cedet/semantic/symref/global.el @@ -38,7 +38,7 @@ the hit list. See the function `cedet-gnu-global-search' for more details.") -(defmethod semantic-symref-perform-search ((tool semantic-symref-tool-global)) +(cl-defmethod semantic-symref-perform-search ((tool semantic-symref-tool-global)) "Perform a search with GNU Global." (let ((b (cedet-gnu-global-search (oref tool :searchfor) (oref tool :searchtype) @@ -49,7 +49,7 @@ See the function `cedet-gnu-global-search' for more details.") (semantic-symref-parse-tool-output tool b) )) -(defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-global)) +(cl-defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-global)) "Parse one line of grep output, and return it as a match list. Moves cursor to end of the match." (cond ((or (eq (oref tool :resulttype) 'file) diff --git a/lisp/cedet/semantic/symref/grep.el b/lisp/cedet/semantic/symref/grep.el index f9821b42988..981dab8a8b5 100644 --- a/lisp/cedet/semantic/symref/grep.el +++ b/lisp/cedet/semantic/symref/grep.el @@ -121,7 +121,7 @@ This shell should support pipe redirect syntax." :group 'semantic :type 'string) -(defmethod semantic-symref-perform-search ((tool semantic-symref-tool-grep)) +(cl-defmethod semantic-symref-perform-search ((tool semantic-symref-tool-grep)) "Perform a search with Grep." ;; Grep doesn't support some types of searches. (let ((st (oref tool :searchtype))) @@ -167,7 +167,7 @@ This shell should support pipe redirect syntax." ;; Return the answer ans)) -(defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-grep)) +(cl-defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-grep)) "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) diff --git a/lisp/cedet/semantic/symref/idutils.el b/lisp/cedet/semantic/symref/idutils.el index 5e9a0a42bfc..c22a6a3b7fb 100644 --- a/lisp/cedet/semantic/symref/idutils.el +++ b/lisp/cedet/semantic/symref/idutils.el @@ -38,7 +38,7 @@ the hit list. See the function `cedet-idutils-search' for more details.") -(defmethod semantic-symref-perform-search ((tool semantic-symref-tool-idutils)) +(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) @@ -49,7 +49,7 @@ See the function `cedet-idutils-search' for more details.") (semantic-symref-parse-tool-output tool b) )) -(defmethod semantic-symref-parse-tool-output-one-line ((tool semantic-symref-tool-idutils)) +(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) |