diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-12-05 09:24:27 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-12-05 09:24:27 +0000 |
| commit | ad6fe94df224de88cac873df5a91ffe14bf50d1b (patch) | |
| tree | 4b7f47319169d8a05df8d755eea5bcc0e5150fd4 /lisp/gnus/gmm-utils.el | |
| parent | a368019460b1a22a84acc8e8836f60e97ebbcb25 (diff) | |
| download | emacs-ad6fe94df224de88cac873df5a91ffe14bf50d1b.tar.gz emacs-ad6fe94df224de88cac873df5a91ffe14bf50d1b.tar.bz2 emacs-ad6fe94df224de88cac873df5a91ffe14bf50d1b.zip | |
gmm-utils.el (gmm-called-interactively-p): New function.
gnus-art.el (article-unsplit-urls)
gnus-bookmark.el (gnus-bookmark-bmenu-list)
gnus-registry.el (gnus-registry-get-article-marks)
message.el (message-goto-body): Use it.
(message-called-interactively-p): Remove.
Diffstat (limited to 'lisp/gnus/gmm-utils.el')
| -rw-r--r-- | lisp/gnus/gmm-utils.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el index ab42b149be3..2e196158131 100644 --- a/lisp/gnus/gmm-utils.el +++ b/lisp/gnus/gmm-utils.el @@ -417,7 +417,19 @@ coding-system." (write-region start end filename append visit lockname)) (write-region start end filename append visit lockname mustbenew))) -;; `flet' and `labels' got obsolete since Emacs 24.3. +;; `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. This is an analogue of a dynamically scoped `let' that operates on |