216 |
(cond ((string-match "\\`def" |
(cond ((string-match "\\`def" |
217 |
function) |
function) |
218 |
(setq tentative-defun t)) |
(setq tentative-defun t)) |
219 |
((string-match "\\`\\(with\\|do\\)-" |
((string-match |
220 |
function) |
(eval-when-compile |
221 |
|
(concat "\\`\\(" |
222 |
|
(regexp-opt '("with" "without" "do")) |
223 |
|
"\\)-")) |
224 |
|
function) |
225 |
(setq method '(&lambda &body)))))) |
(setq method '(&lambda &body)))))) |
226 |
;; backwards compatibility. Bletch. |
;; backwards compatibility. Bletch. |
227 |
((eq method 'defun) |
((eq method 'defun) |