86 |
|
|
87 |
;; For special function-like operators, use the `autoload' function. |
;; For special function-like operators, use the `autoload' function. |
88 |
((memq car '(defun define-skeleton defmacro define-derived-mode |
((memq car '(defun define-skeleton defmacro define-derived-mode |
89 |
|
define-compilation-mode |
90 |
define-generic-mode easy-mmode-define-minor-mode |
define-generic-mode easy-mmode-define-minor-mode |
91 |
easy-mmode-define-global-mode |
easy-mmode-define-global-mode |
92 |
define-minor-mode defun* defmacro*)) |
define-minor-mode defun* defmacro*)) |
95 |
(args (case car |
(args (case car |
96 |
((defun defmacro defun* defmacro*) (nth 2 form)) |
((defun defmacro defun* defmacro*) (nth 2 form)) |
97 |
((define-skeleton) '(&optional str arg)) |
((define-skeleton) '(&optional str arg)) |
98 |
((define-generic-mode define-derived-mode) nil) |
((define-generic-mode define-derived-mode |
99 |
|
define-compilation-mode) nil) |
100 |
(t))) |
(t))) |
101 |
(body (nthcdr (get car 'doc-string-elt) form)) |
(body (nthcdr (get car 'doc-string-elt) form)) |
102 |
(doc (if (stringp (car body)) (pop body)))) |
(doc (if (stringp (car body)) (pop body)))) |