[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-indent.el

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/cl-indent.el
diff -u emacs/lisp/emacs-lisp/cl-indent.el:1.32 
emacs/lisp/emacs-lisp/cl-indent.el:1.33
--- emacs/lisp/emacs-lisp/cl-indent.el:1.32     Mon Nov 12 14:58:33 2001
+++ emacs/lisp/emacs-lisp/cl-indent.el  Mon Nov 19 01:24:05 2001
@@ -358,10 +358,13 @@
 (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))