diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-02-04 13:49:49 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-02-04 13:49:49 -0500 |
| commit | 73b17f7c2b723a0ad4ea04cf1a5a8be5bbdf6121 (patch) | |
| tree | fc2ee663521960bf1c102bb98a72f31903e5110b /lisp/cedet/semantic/ia-sb.el | |
| parent | 102a21d68976ab9dc85304e0bc47b7562d3cf93f (diff) | |
* lisp/cedet: Use cl-generic instead of EIEIO's defgeneric/defmethod
* lisp/cedet/**/*.el: Mechanically replace all calls to defmethod/defgeneric
by calls to cl-defmethod/cl-defgeneric.
* lisp/cedet/srecode/table.el:
* lisp/cedet/srecode/fields.el:
* lisp/cedet/srecode/dictionary.el:
* lisp/cedet/srecode/compile.el:
* lisp/cedet/semantic/debug.el:
* lisp/cedet/semantic/db-ref.el:
* lisp/cedet/ede/base.el:
* lisp/cedet/ede/auto.el:
* lisp/cedet/ede.el: Require `cl-generic'.
Diffstat (limited to 'lisp/cedet/semantic/ia-sb.el')
| -rw-r--r-- | lisp/cedet/semantic/ia-sb.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/cedet/semantic/ia-sb.el b/lisp/cedet/semantic/ia-sb.el index 410d63acab..fcc9c002ce 100644 --- a/lisp/cedet/semantic/ia-sb.el +++ b/lisp/cedet/semantic/ia-sb.el @@ -138,7 +138,7 @@ DIRECTORY is the current directory, which is ignored, and ZERO is 0." ))) -(defmethod semantic-ia-sb-show-doc ((context semantic-analyze-context)) +(cl-defmethod semantic-ia-sb-show-doc ((context semantic-analyze-context)) "Show documentation about CONTEXT if CONTEXT points at a complete symbol." (let ((sym (car (reverse (oref context prefix)))) (doc nil)) @@ -163,7 +163,7 @@ DIRECTORY is the current directory, which is ignored, and ZERO is 0." ;; This is from semantic-sb 'semantic-sb-token-jump)))) -(defmethod semantic-ia-sb-more-buttons ((context semantic-analyze-context)) +(cl-defmethod semantic-ia-sb-more-buttons ((context semantic-analyze-context)) "Show a set of speedbar buttons specific to CONTEXT." (let ((prefix (oref context prefix))) (when prefix @@ -173,9 +173,9 @@ DIRECTORY is the current directory, which is ignored, and ZERO is 0." 'semantic-sb-token-jump)) )) -(defmethod semantic-ia-sb-more-buttons ((context semantic-analyze-context-assignment)) +(cl-defmethod semantic-ia-sb-more-buttons ((context semantic-analyze-context-assignment)) "Show a set of speedbar buttons specific to CONTEXT." - (call-next-method) + (cl-call-next-method) (let ((assignee (oref context assignee))) (when assignee (speedbar-insert-separator "Assignee") @@ -183,9 +183,9 @@ DIRECTORY is the current directory, which is ignored, and ZERO is 0." 'speedbar-tag-face 'semantic-sb-token-jump)))) -(defmethod semantic-ia-sb-more-buttons ((context semantic-analyze-context-functionarg)) +(cl-defmethod semantic-ia-sb-more-buttons ((context semantic-analyze-context-functionarg)) "Show a set of speedbar buttons specific to CONTEXT." - (call-next-method) + (cl-call-next-method) (let ((func (oref context function))) (when func (speedbar-insert-separator "Function") |