diff options
| author | Sam Steingold <sds@gnu.org> | 2004-05-17 17:00:00 +0000 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2004-05-17 17:00:00 +0000 |
| commit | 410019e59c74f64a85344edcb0f72210b063b339 (patch) | |
| tree | 6056c620a4f402aa49b6d8d741dcb7c884db36c9 /lisp/emacs-lisp/cl-indent.el | |
| parent | d080618c7efba88e91bb3d3c9bbc318a17506f86 (diff) | |
| download | emacs-410019e59c74f64a85344edcb0f72210b063b339.tar.gz | |
(common-lisp-indent-function-1): Indent "without-" forms just
like "with-" and "do-". Use regexp-opt.
Diffstat (limited to 'lisp/emacs-lisp/cl-indent.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-indent.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-indent.el b/lisp/emacs-lisp/cl-indent.el index 2e6265d4dfd..c5e13a4c00f 100644 --- a/lisp/emacs-lisp/cl-indent.el +++ b/lisp/emacs-lisp/cl-indent.el @@ -216,8 +216,12 @@ If nil, indent backquoted lists as data, i.e., like quoted lists." (cond ((string-match "\\`def" function) (setq tentative-defun t)) - ((string-match "\\`\\(with\\|do\\)-" - function) + ((string-match + (eval-when-compile + (concat "\\`\\(" + (regexp-opt '("with" "without" "do")) + "\\)-")) + function) (setq method '(&lambda &body)))))) ;; backwards compatibility. Bletch. ((eq method 'defun) |