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/pulse-utest.el b/test/manual/cedet/pulse-utest.el
index 46cd1497f74abe9d26735f401503331eff43b913..f0a978cfa7b03f3350831ecaa1033612b7456fff 100644 (file)
--- 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!"))))