Mercurial > emacs

comparison lisp/mh-e/mh-gnus.el @ 67758:6b063593fdad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
comparison
equal deleted inserted replaced
67757:488b4dbc7482 67758:6b063593fdad
39 (load "mml" t t) 39 (load "mml" t t)
40 (load "smiley" t t) 40 (load "smiley" t t)
41 41
42 (defmacro mh-defun-compat (function arg-list &rest body) 42 (defmacro mh-defun-compat (function arg-list &rest body)
43 "This is a macro to define functions which are not defined. 43 "This is a macro to define functions which are not defined.
44 It is used for Gnus utility functions which were added recently. If FUNCTION 44 It is used for Gnus utility functions which were added recently.
45 is not defined then it is defined to have argument list, ARG-LIST and body, 45 If FUNCTION is not defined then it is defined to have argument
46 BODY." 46 list, ARG-LIST and body, BODY."
47 (let ((defined-p (fboundp function))) 47 (let ((defined-p (fboundp function)))
48 (unless defined-p 48 (unless defined-p
49 `(defun ,function ,arg-list ,@body)))) 49 `(defun ,function ,arg-list ,@body))))
50 (put 'mh-defun-compat 'lisp-indent-function 'defun) 50 (put 'mh-defun-compat 'lisp-indent-function 'defun)
51 51
52 (defmacro mh-defmacro-compat (function arg-list &rest body) 52 (defmacro mh-defmacro-compat (function arg-list &rest body)
53 "This is a macro to define functions which are not defined. 53 "This is a macro to define functions which are not defined.
54 It is used for Gnus utility functions which were added recently. If FUNCTION 54 It is used for Gnus utility functions which were added recently.
55 is not defined then it is defined to have argument list, ARG-LIST and body, 55 If FUNCTION is not defined then it is defined to have argument
56 BODY." 56 list, ARG-LIST and body, BODY."
57 (let ((defined-p (fboundp function))) 57 (let ((defined-p (fboundp function)))
58 (unless defined-p 58 (unless defined-p
59 `(defmacro ,function ,arg-list ,@body)))) 59 `(defmacro ,function ,arg-list ,@body))))
60 (put 'mh-defmacro-compat 'lisp-indent-function 'defun) 60 (put 'mh-defmacro-compat 'lisp-indent-function 'defun)
61 61