diff options
| author | Stefan Monnier | 2014-12-22 12:43:23 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2014-12-22 12:43:23 -0500 |
| commit | b11d8924b565bd96939537b10a70bb3c26532bed (patch) | |
| tree | ce1e395d94d9f148b507face545b2ca9e80f0f2d /lisp/cedet/srecode | |
| parent | b366b3bbf5ce0f6b47afec2eff0f7d27291e9a6f (diff) | |
| download | emacs-b11d8924b565bd96939537b10a70bb3c26532bed.tar.gz emacs-b11d8924b565bd96939537b10a70bb3c26532bed.zip | |
* 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/srecode')
| -rw-r--r-- | lisp/cedet/srecode/srt-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el index 48a4865e176..dfc1df805af 100644 --- a/lisp/cedet/srecode/srt-mode.el +++ b/lisp/cedet/srecode/srt-mode.el | |||
| @@ -233,7 +233,7 @@ we can tell font lock about them.") | |||
| 233 | "Provide help for working with macros in a template." | 233 | "Provide help for working with macros in a template." |
| 234 | (interactive) | 234 | (interactive) |
| 235 | (let* ((root 'srecode-template-inserter) | 235 | (let* ((root 'srecode-template-inserter) |
| 236 | (chl (eieio--class-children (class-v root))) | 236 | (chl (eieio-class-children root)) |
| 237 | (ess (srecode-template-get-escape-start)) | 237 | (ess (srecode-template-get-escape-start)) |
| 238 | (ees (srecode-template-get-escape-end)) | 238 | (ees (srecode-template-get-escape-end)) |
| 239 | ) | 239 | ) |
| @@ -249,7 +249,7 @@ we can tell font lock about them.") | |||
| 249 | (showexample t) | 249 | (showexample t) |
| 250 | ) | 250 | ) |
| 251 | (setq chl (cdr chl)) | 251 | (setq chl (cdr chl)) |
| 252 | (setq chl (append (eieio--class-children (class-v C)) chl)) | 252 | (setq chl (append (eieio-class-children C) chl)) |
| 253 | 253 | ||
| 254 | (catch 'skip | 254 | (catch 'skip |
| 255 | (when (eq C 'srecode-template-inserter-section-end) | 255 | (when (eq C 'srecode-template-inserter-section-end) |