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/ede | |
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/ede')
-rw-r--r-- | lisp/cedet/ede/generic.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/cedet/ede/generic.el b/lisp/cedet/ede/generic.el index f0314cb7f22..6d4535323d0 100644 --- a/lisp/cedet/ede/generic.el +++ b/lisp/cedet/ede/generic.el @@ -232,7 +232,7 @@ If one doesn't exist, create a new one for this directory." (let* ((classsym (intern (car C))) (extreg (oref classsym extension))) (when (and (not (string= extreg "")) - (string-match (concat "^" extreg "$") ext)) + (string-match (concat "\\`\\(?:" extreg "\\)\\'") ext)) (setq cls classsym))))) (when (not cls) (setq cls 'ede-generic-target-misc)) ;; find a pre-existing matching target |