From b11d8924b565bd96939537b10a70bb3c26532bed Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 22 Dec 2014 12:43:23 -0500 Subject: * 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. --- lisp/cedet/ede/generic.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/cedet/ede') 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 -- cgit v1.2.1