358 |
(defun lisp-indent-defmethod (path state indent-point sexp-column |
(defun lisp-indent-defmethod (path state indent-point sexp-column |
359 |
normal-indent) |
normal-indent) |
360 |
"Indentation function defmethod." |
"Indentation function defmethod." |
361 |
(lisp-indent-259 (if (save-excursion (goto-char (elt state 1)) |
(lisp-indent-259 (if (and (>= (first path) 3) |
362 |
(forward-char 1) |
(null (rest path)) |
363 |
(forward-sexp 2) |
(save-excursion (goto-char (elt state 1)) |
364 |
(looking-at "\\s-+:")) |
(forward-char 1) |
365 |
|
(forward-sexp 3) |
366 |
|
(backward-sexp) |
367 |
|
(looking-at ":"))) |
368 |
'(4 4 (&whole 4 &rest 4) &body) |
'(4 4 (&whole 4 &rest 4) &body) |
369 |
(get 'defun 'common-lisp-indent-function)) |
(get 'defun 'common-lisp-indent-function)) |
370 |
path state indent-point sexp-column normal-indent)) |
path state indent-point sexp-column normal-indent)) |