mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(lisp-indent-defmethod): At first three elements, act like defun.

Browse Source 
Advance to start of 3rd sexp by moving fwd and backing over it.
This commit is contained in:
Richard M. Stallman 2001-11-19 06:24:05 +00:00
parent b4d7a2ece9
commit c298849896
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/emacs-lisp/cl-indent.el
View File

@ -358,10 +358,13 @@ by `lisp-body-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-+:"))
(lisp-indent-259 (if (and (>= (first path) 3)
(null (rest path))
(save-excursion (goto-char (elt state 1))
(forward-char 1)
(forward-sexp 3)
(backward-sexp)
(looking-at ":")))
'(4 4 (&whole 4 &rest 4) &body)
(get 'defun 'common-lisp-indent-function))
path state indent-point sexp-column normal-indent))