/[emacs]/emacs/lisp/emacs-lisp/cl-indent.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-indent.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37.2.2 by miles, Tue Oct 14 23:32:20 2003 UTC revision 1.37.2.3 by miles, Tue Jul 6 09:14:20 2004 UTC
# Line 216  If nil, indent backquoted lists as data, Line 216  If nil, indent backquoted lists as data,
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)

Legend:
Removed from v.1.37.2.2  
changed lines
  Added in v.1.37.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26