Mercurial > emacs
comparison lisp/emacs-lisp/cl-indent.el @ 27753:343886f78d1a
(lisp-indent-259): Indentation fix.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 17 Feb 2000 20:43:34 +0000 |
| parents | e9725bb98b6e |
| children | 3cb58ebdc2fa |
comparison
equal
deleted
inserted
replaced
| 27752:7ee8155d48c5 | 27753:343886f78d1a |
|---|---|
| 239 ;; n is set to (1- n) and method to (cdr method) | 239 ;; n is set to (1- n) and method to (cdr method) |
| 240 ;; each iteration. | 240 ;; each iteration. |
| 241 (setq tem (car method)) | 241 (setq tem (car method)) |
| 242 | 242 |
| 243 (or (eq tem 'nil) ;default indentation | 243 (or (eq tem 'nil) ;default indentation |
| 244 (eq tem '&lambda) ;lambda list | 244 (eq tem '&lambda) ;lambda list |
| 245 (and (eq tem '&body) (null (cdr method))) | 245 (and (eq tem '&body) (null (cdr method))) |
| 246 (and (eq tem '&rest) | 246 (and (eq tem '&rest) |
| 247 (consp (cdr method)) (null (cddr method))) | 247 (consp (cdr method)) |
| 248 (null (cddr method))) | |
| 248 (integerp tem) ;explicit indentation specified | 249 (integerp tem) ;explicit indentation specified |
| 249 (and (consp tem) ;destructuring | 250 (and (consp tem) ;destructuring |
| 250 (eq (car tem) '&whole) | 251 (eq (car tem) '&whole) |
| 251 (or (symbolp (cadr tem)) | 252 (or (symbolp (cadr tem)) |
| 252 (integerp (cadr tem)))) | 253 (integerp (cadr tem)))) |
| 253 (and (symbolp tem) ;a function to call to do the work. | 254 (and (symbolp tem) ;a function to call to do the work. |
| 254 (null (cdr method))) | 255 (null (cdr method))) |
| 255 (lisp-indent-report-bad-format method)) | 256 (lisp-indent-report-bad-format method)) |
| 256 | 257 |
| 257 (cond ((and tail (not (consp tem))) | 258 (cond ((and tail (not (consp tem))) |