Mercurial > emacs
comparison lisp/emacs-lisp/cl-indent.el @ 37389:3061b65a9897
(toplevel): Comment out the spec
for defmethod.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 18 Apr 2001 15:09:36 +0000 |
parents | e2fb02d21aee |
children | b1fec0dc2aa1 |
comparison
equal
deleted
inserted
replaced
37388:d63fa36c7fac | 37389:3061b65a9897 |
---|---|
1 ;;; cl-indent.el --- enhanced lisp-indent mode | 1 ;;; cl-indent.el --- enhanced lisp-indent mode |
2 | 2 |
3 ;; Copyright (C) 1987 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1987, 2000, 2001 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Richard Mlynarik <mly@eddie.mit.edu> | 5 ;; Author: Richard Mlynarik <mly@eddie.mit.edu> |
6 ;; Created: July 1987 | 6 ;; Created: July 1987 |
7 ;; Maintainer: FSF | 7 ;; Maintainer: FSF |
8 ;; Keywords: lisp, tools | 8 ;; Keywords: lisp, tools |
391 (defsetf (4 &lambda 4 &body)) | 391 (defsetf (4 &lambda 4 &body)) |
392 (defun (4 &lambda &body)) | 392 (defun (4 &lambda &body)) |
393 (define-setf-method . defun) | 393 (define-setf-method . defun) |
394 (define-setf-expander . defun) | 394 (define-setf-expander . defun) |
395 (defmacro . defun) (defsubst . defun) (deftype . defun) | 395 (defmacro . defun) (defsubst . defun) (deftype . defun) |
396 (defmethod (4 4 (&whole 4 &rest 1) &body)) | 396 ;; The following indents the first line of the body of a |
397 ;; defmethod wrong. | |
398 ;(defmethod (4 4 (&whole 4 &rest 1) &body)) | |
397 (defpackage (4 2)) | 399 (defpackage (4 2)) |
398 (defstruct ((&whole 4 &rest (&whole 2 &rest 1)) | 400 (defstruct ((&whole 4 &rest (&whole 2 &rest 1)) |
399 &rest (&whole 2 &rest 1))) | 401 &rest (&whole 2 &rest 1))) |
400 (destructuring-bind | 402 (destructuring-bind |
401 ((&whole 6 &rest 1) 4 &body)) | 403 ((&whole 6 &rest 1) 4 &body)) |