Mercurial > emacs
diff lisp/mh-e/mh-gnus.el @ 67758:6b063593fdad
Follow Emacs coding conventions. Use default setting of
emacs-lisp-docstring-fill-column which is 65.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Fri, 23 Dec 2005 07:40:40 +0000 |
| parents | 3a8785724cca |
| children | ec4727559827 |
line wrap: on
line diff
--- a/lisp/mh-e/mh-gnus.el Fri Dec 23 05:40:21 2005 +0000 +++ b/lisp/mh-e/mh-gnus.el Fri Dec 23 07:40:40 2005 +0000 @@ -41,9 +41,9 @@ (defmacro mh-defun-compat (function arg-list &rest body) "This is a macro to define functions which are not defined. -It is used for Gnus utility functions which were added recently. If FUNCTION -is not defined then it is defined to have argument list, ARG-LIST and body, -BODY." +It is used for Gnus utility functions which were added recently. +If FUNCTION is not defined then it is defined to have argument +list, ARG-LIST and body, BODY." (let ((defined-p (fboundp function))) (unless defined-p `(defun ,function ,arg-list ,@body)))) @@ -51,9 +51,9 @@ (defmacro mh-defmacro-compat (function arg-list &rest body) "This is a macro to define functions which are not defined. -It is used for Gnus utility functions which were added recently. If FUNCTION -is not defined then it is defined to have argument list, ARG-LIST and body, -BODY." +It is used for Gnus utility functions which were added recently. +If FUNCTION is not defined then it is defined to have argument +list, ARG-LIST and body, BODY." (let ((defined-p (fboundp function))) (unless defined-p `(defmacro ,function ,arg-list ,@body))))