diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-12-22 12:43:23 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-12-22 12:43:23 -0500 |
| commit | b11d8924b565bd96939537b10a70bb3c26532bed (patch) | |
| tree | ce1e395d94d9f148b507face545b2ca9e80f0f2d /lisp/cedet/semantic/db.el | |
| parent | b366b3bbf5ce0f6b47afec2eff0f7d27291e9a6f (diff) | |
| download | emacs-b11d8924b565bd96939537b10a70bb3c26532bed.tar.gz | |
* lisp/cedet: Reduce reliance on EIEIO internals.
* lisp/cedet/ede/generic.el (ede-find-target): Prefer \` and \' to ^ and $.
* lisp/cedet/semantic/db-el.el (semanticdb-elisp-sym->tag): Prefer find-class over
class-v.
* lisp/cedet/semantic/db.el (semanticdb-cache-get): Prefer eieio-object-class over
eieio--object-class.
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help): Use eieio-class-children.
Diffstat (limited to 'lisp/cedet/semantic/db.el')
| -rw-r--r-- | lisp/cedet/semantic/db.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el index 13e2d1b37d4..0732f225779 100644 --- a/lisp/cedet/semantic/db.el +++ b/lisp/cedet/semantic/db.el @@ -481,7 +481,7 @@ other than :table." (let ((cache (oref table cache)) (obj nil)) (while (and (not obj) cache) - (if (eq (eieio--object-class (car cache)) desired-class) + (if (eq (eieio-object-class (car cache)) desired-class) (setq obj (car cache))) (setq cache (cdr cache))) (if obj @@ -532,7 +532,7 @@ other than :table." (let ((cache (oref db cache)) (obj nil)) (while (and (not obj) cache) - (if (eq (eieio--object-class (car cache)) desired-class) + (if (eq (eieio-object-class (car cache)) desired-class) (setq obj (car cache))) (setq cache (cdr cache))) (if obj |