/[emacs]/emacs/lisp/emacs-lisp/cl-indent.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-indent.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by sds, Mon Nov 12 19:58:33 2001 UTC revision 1.33 by rms, Mon Nov 19 06:24:05 2001 UTC
# Line 358  by `lisp-body-indent'." Line 358  by `lisp-body-indent'."
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))

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26