procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(lisp-indent-defmethod): New function.

Browse source 
(toplevel): Set it as `common-lisp-indent-function' for
`defmethod'.
This commit is contained in:
Gerd Moellmann 2001-08-15 11:57:03 +00:00
parent 3e6f08e6f0
commit ec69d5ec2b
2 changed files with 17 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2001-08-15 Gerd Moellmann <gerd@gnu.org>
* emacs-lisp/cl-indent.el (lisp-indent-defmethod): New function.
(toplevel): Set it as `common-lisp-indent-function' for
`defmethod'.
* ediff-mult.el (ediff-get-meta-info): Fix the condition
of a while-loop.

16
lisp/emacs-lisp/cl-indent.el
View file

@ -355,6 +355,18 @@ by `lisp-body-indent'."
(&whole nil &rest 1))
path state indent-point sexp-column normal-indent)))
(defun lisp-indent-defmethod (path state indent-point sexp-column
normal-indent)
"Indentation function defmethod."
(lisp-indent-259 (if (save-excursion (goto-char (elt state 1))
(forward-char 1)
(forward-sexp 2)
(looking-at "\\s-+:"))
'(4 4 (&whole 4 &rest 4) &body)
(get 'defun 'common-lisp-indent-function))
path state indent-point sexp-column normal-indent))
(defun lisp-indent-function-lambda-hack (path state indent-point
sexp-column normal-indent)
;; indent (function (lambda () <newline> <body-forms>)) kludgily.
@ -393,9 +405,7 @@ by `lisp-body-indent'."
(define-setf-method . defun)
(define-setf-expander . defun)
(defmacro . defun) (defsubst . defun) (deftype . defun)
;; The following indents the first line of the body of a
;; defmethod wrong.
;(defmethod (4 4 (&whole 4 &rest 1) &body))
(defmethod lisp-indent-defmethod)
(defpackage (4 2))
(defstruct ((&whole 4 &rest (&whole 2 &rest 1))
&rest (&whole 2 &rest 1)))