diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-12-06 04:28:00 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-12-06 04:28:00 +0000 |
| commit | da9462398abf03e0fdd7269aedf9ed7ebe6bfaa7 (patch) | |
| tree | 6ea6d40a283e9deb3e9a247cb876b299f9803484 /lisp/gnus/gmm-utils.el | |
| parent | 9ad948e2fdc7bbe7caa00fd3460ef3f47087c9c3 (diff) | |
| download | emacs-da9462398abf03e0fdd7269aedf9ed7ebe6bfaa7.tar.gz emacs-da9462398abf03e0fdd7269aedf9ed7ebe6bfaa7.tar.bz2 emacs-da9462398abf03e0fdd7269aedf9ed7ebe6bfaa7.zip | |
gmm-utils.el (gmm-called-interactively-p): Restore as a macro.
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.
spam-stat.el (spam-stat-called-interactively-p): New macro.
(spam-stat-score-buffer): Use it.
spam.el: Silence the warnings against BBDB functions when compiling.
gnus-score.el (gnus-score-decode-text-parts):
Use append+mapcar instead of the cl function mapcan.
Diffstat (limited to 'lisp/gnus/gmm-utils.el')
| -rw-r--r-- | lisp/gnus/gmm-utils.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el index 92a39257a76..0f03d479534 100644 --- a/lisp/gnus/gmm-utils.el +++ b/lisp/gnus/gmm-utils.el @@ -417,6 +417,18 @@ 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. +(defmacro gmm-called-interactively-p (kind) + (condition-case nil + (progn + (eval '(called-interactively-p 'any)) + ;; Emacs >=23.2 + `(called-interactively-p ,kind)) + ;; Emacs <23.2 + (wrong-number-of-arguments '(called-interactively-p)) + ;; XEmacs + (void-function '(interactive-p)))) + ;; `labels' is obsolete since Emacs 24.3. (defmacro gmm-labels (bindings &rest body) "Make temporary function bindings. |