From: David Engster <dengste@eml.cc>
Date: Sun, 28 Jul 2013 11:24:40 +0000 (+0200)
Subject: Remove compatibility function `cedet-called-interactively-p'.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=967958408ad65e80bbf68c7482daef09983321ff;p=emacs.git

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.
---

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))))