87 |
((memq car '(defun define-skeleton defmacro define-derived-mode |
((memq car '(defun define-skeleton defmacro define-derived-mode |
88 |
define-generic-mode easy-mmode-define-minor-mode |
define-generic-mode easy-mmode-define-minor-mode |
89 |
easy-mmode-define-global-mode |
easy-mmode-define-global-mode |
90 |
define-minor-mode defun*)) |
define-minor-mode defun* defmacro*)) |
91 |
(let* ((macrop (eq car 'defmacro)) |
(let* ((macrop (memq car '(defmacro defmacro*))) |
92 |
(name (nth 1 form)) |
(name (nth 1 form)) |
93 |
(body (nthcdr (get car 'doc-string-elt) form)) |
(body (nthcdr (get car 'doc-string-elt) form)) |
94 |
(doc (if (stringp (car body)) (pop body)))) |
(doc (if (stringp (car body)) (pop body)))) |