[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-indent.el [emacs-unicode-2]

[Miles Bader]

Index: emacs/lisp/emacs-lisp/cl-indent.el
diff -c emacs/lisp/emacs-lisp/cl-indent.el:1.40.4.1 
emacs/lisp/emacs-lisp/cl-indent.el:1.40.4.2
*** emacs/lisp/emacs-lisp/cl-indent.el:1.40.4.1 Fri Apr 16 12:50:13 2004
--- emacs/lisp/emacs-lisp/cl-indent.el  Mon Jun 28 07:29:45 2004
***************
*** 216,223 ****
                     (cond ((string-match "\\`def"
                                          function)
                            (setq tentative-defun t))
!                          ((string-match "\\`\\(with\\|do\\)-"
!                                         function)
                            (setq method '(&lambda &body))))))
                    ;; backwards compatibility.  Bletch.
                    ((eq method 'defun)
--- 216,227 ----
                     (cond ((string-match "\\`def"
                                          function)
                            (setq tentative-defun t))
!                          ((string-match
!                              (eval-when-compile
!                               (concat "\\`\\("
!                                       (regexp-opt '("with" "without" "do"))
!                                       "\\)-"))
!                              function)
                            (setq method '(&lambda &body))))))
                    ;; backwards compatibility.  Bletch.
                    ((eq method 'defun)