summaryrefslogtreecommitdiff
path: root/lisp/gnus/gmm-utils.el
diff options
context:
space:
mode:
authorKatsumi Yamaoka <yamaoka@jpl.org>2012-12-05 10:27:16 +0000
committerKatsumi Yamaoka <yamaoka@jpl.org>2012-12-05 10:27:16 +0000
commit299a66e9820fc91aad2306961471736e69612614 (patch)
treeddaf874496d672d6e998692d758dd7eb16602974 /lisp/gnus/gmm-utils.el
parent51b890acbf62bb3b9c10c025413786d69f6c87d4 (diff)
downloademacs-299a66e9820fc91aad2306961471736e69612614.tar.gz
emacs-299a66e9820fc91aad2306961471736e69612614.tar.bz2
emacs-299a66e9820fc91aad2306961471736e69612614.zip
gmm-utils.el (gmm-called-interactively-p): Revert. This seems to causes Emacs to get stuck!
Diffstat (limited to 'lisp/gnus/gmm-utils.el')
-rw-r--r--lisp/gnus/gmm-utils.el12
1 files changed, 0 insertions, 12 deletions
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.