diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-12-05 10:27:16 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-12-05 10:27:16 +0000 |
| commit | 299a66e9820fc91aad2306961471736e69612614 (patch) | |
| tree | ddaf874496d672d6e998692d758dd7eb16602974 /lisp/gnus/message.el | |
| parent | 51b890acbf62bb3b9c10c025413786d69f6c87d4 (diff) | |
| download | emacs-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/message.el')
| -rw-r--r-- | lisp/gnus/message.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 145bab97409..2171dcf3edc 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -3137,10 +3137,22 @@ 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 (gmm-called-interactively-p 'any) + (when (and (message-called-interactively-p 'any) (looking-at "[ \t]*\n")) (expand-abbrev)) (push-mark) |