Mercurial > emacs
comparison lisp/emacs-lisp/cl-indent.el @ 55636:c2f8040b4ece
(common-lisp-indent-function-1): Indent "without-" forms just
like "with-" and "do-". Use regexp-opt.
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Mon, 17 May 2004 17:00:00 +0000 |
| parents | 695cf19ef79e |
| children | 3b66605ad268 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
| 55635:333119854d83 | 55636:c2f8040b4ece |
|---|---|
| 214 (when (null (cdr path)) | 214 (when (null (cdr path)) |
| 215 ;; (package prefix was stripped off above) | 215 ;; (package prefix was stripped off above) |
| 216 (cond ((string-match "\\`def" | 216 (cond ((string-match "\\`def" |
| 217 function) | 217 function) |
| 218 (setq tentative-defun t)) | 218 (setq tentative-defun t)) |
| 219 ((string-match "\\`\\(with\\|do\\)-" | 219 ((string-match |
| 220 function) | 220 (eval-when-compile |
| 221 (concat "\\`\\(" | |
| 222 (regexp-opt '("with" "without" "do")) | |
| 223 "\\)-")) | |
| 224 function) | |
| 221 (setq method '(&lambda &body)))))) | 225 (setq method '(&lambda &body)))))) |
| 222 ;; backwards compatibility. Bletch. | 226 ;; backwards compatibility. Bletch. |
| 223 ((eq method 'defun) | 227 ((eq method 'defun) |
| 224 (setq method lisp-indent-defun-method))) | 228 (setq method lisp-indent-defun-method))) |
| 225 | 229 |