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=89e6966533a55bbacae4edb653fcc6dd71cdf1e1;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/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!"))))