From 89e6966533a55bbacae4edb653fcc6dd71cdf1e1 Mon Sep 17 00:00:00 2001
From: David Engster <dengste@eml.cc>
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/pulse-utest.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/test/manual/cedet/pulse-utest.el b/test/manual/cedet/pulse-utest.el
index 46cd1497f74..f0a978cfa7b 100644
--- a/test/manual/cedet/pulse-utest.el
+++ b/test/manual/cedet/pulse-utest.el
@@ -36,11 +36,11 @@ When optional NO-ERROR Don't throw an error if we can't run tests."
         (error (concat "Pulse test only works on versions of Emacs"
                        " that support pulsing")))
     ;; Run the tests
-    (when (cedet-called-interactively-p)
+    (when (called-interactively-p 'any)
       (message "<Press a key> Pulse one line.")
       (read-char))
     (pulse-momentary-highlight-one-line (point))
-    (when (cedet-called-interactively-p)
+    (when (called-interactively-p 'any)
       (message "<Press a key> Pulse a region.")
       (read-char))
     (pulse-momentary-highlight-region (point)
@@ -49,11 +49,11 @@ When optional NO-ERROR Don't throw an error if we can't run tests."
                                             (forward-char 30)
                                           (error nil))
                                         (point)))
-    (when (cedet-called-interactively-p)
+    (when (called-interactively-p 'any)
       (message "<Press a key> Pulse line a specific color.")
       (read-char))
     (pulse-momentary-highlight-one-line (point) 'modeline)
-    (when (cedet-called-interactively-p)
+    (when (called-interactively-p 'any)
       (message "<Press a key> Pulse a pre-existing overlay.")
       (read-char))
     (let* ((start (point-at-bol))
@@ -69,7 +69,7 @@ When optional NO-ERROR Don't throw an error if we can't run tests."
           (delete-overlay o)
         (error "Non-temporary overlay was deleted!"))
       )
-    (when (cedet-called-interactively-p)
+    (when (called-interactively-p 'any)
       (message "Done!"))))
 
 
-- 
2.39.2