[Emacs-diffs] scratch/merge-cedet-tests 89e6966 077/316: Remove compatibility function `cedet-called-interactively-p'.

[Edward John Steere]

branch: scratch/merge-cedet-tests
commit 89e6966533a55bbacae4edb653fcc6dd71cdf1e1
Author: David Engster <address@hidden>
Commit: Edward John Steere <address@hidden>

    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 46cd149..f0a978c 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!"))))