From 967958408ad65e80bbf68c7482daef09983321ff Mon Sep 17 00:00:00 2001 From: David Engster Date: Sun, 28 Jul 2013 13:24:40 +0200 Subject: [PATCH] Remove compatibility function `cedet-called-interactively-p'. * lisp/cedet/cedet-compat.el (cedet-called-interactively-p): Remove. It is no longer needed since our minimum version is now 23.2, which has `called-interactively-p'. Also, remove corresponding unit tests. * tests/cedet-utests.el (cedet-utest-test-alist): Remove cedet-compat unit tests. * All files: Replace `cedet-called-interactively-p' with `called-interactively-p', providing 'any as argument where it was still missing. --- test/manual/cedet/cedet/semantic/ia-utest.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/manual/cedet/cedet/semantic/ia-utest.el b/test/manual/cedet/cedet/semantic/ia-utest.el index 7fdbeab77fd..6611102d1ee 100644 --- a/test/manual/cedet/cedet/semantic/ia-utest.el +++ b/test/manual/cedet/cedet/semantic/ia-utest.el @@ -544,7 +544,7 @@ tag that contains point, and return that." target (lambda (start end prefix) (setq Lcount (1+ Lcount))) (semantic-tag-start tag) (semantic-tag-end tag)) - (when (cedet-called-interactively-p) + (when (called-interactively-p 'any) (message "Found %d occurances of %s in %.2f seconds" Lcount (semantic-tag-name target) (semantic-elapsed-time start (current-time)))) -- 2.39.5