From ad6fe94df224de88cac873df5a91ffe14bf50d1b Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Wed, 5 Dec 2012 09:24:27 +0000 Subject: 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. --- lisp/gnus/message.el | 14 +------------- 1 file changed, 1 insertion(+), 13 deletions(-) (limited to 'lisp/gnus/message.el') diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 2171dcf3edc..145bab97409 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -3137,22 +3137,10 @@ M-RET `message-newline-and-reformat' (break the line and reformat)." (push-mark) (message-position-on-field "Summary" "Subject")) -(eval-when-compile - (defmacro message-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))))) - (defun message-goto-body () "Move point to the beginning of the message body." (interactive) - (when (and (message-called-interactively-p 'any) + (when (and (gmm-called-interactively-p 'any) (looking-at "[ \t]*\n")) (expand-abbrev)) (push-mark) -- cgit v1.2.3