From 299a66e9820fc91aad2306961471736e69612614 Mon Sep 17 00:00:00 2001
From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 5 Dec 2012 10:27:16 +0000
Subject: gmm-utils.el (gmm-called-interactively-p): Revert. This seems to
causes Emacs to get stuck!
---
lisp/gnus/gmm-utils.el | 12 ------------
1 file changed, 12 deletions(-)
(limited to 'lisp/gnus/gmm-utils.el')
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el
index 2e196158131..91e4965e91c 100644
--- a/lisp/gnus/gmm-utils.el
+++ b/lisp/gnus/gmm-utils.el
@@ -417,18 +417,6 @@ coding-system."
(write-region start end filename append visit lockname))
(write-region start end filename append visit lockname mustbenew)))
-;; `interactive-p' is obsolete since Emacs 23.2.
-(defalias 'gmm-called-interactively-p
- (condition-case nil
- (progn
- (eval '(called-interactively-p 'any))
- ;; Emacs >=23.2
- 'called-interactively-p)
- ;; Emacs <23.2
- (wrong-number-of-arguments '(lambda (kind) (called-interactively-p)))
- ;; XEmacs
- (void-function '(lambda (kind) (interactive-p)))))
-
;; `flet' and `labels' are obsolete since Emacs 24.3.
(defmacro gmm-flet (bindings &rest body)
"Make temporary overriding function definitions.
--
cgit v1.2.3