[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-indent.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-indent.el |
Date: |
Mon, 19 Nov 2001 01:24:05 -0500 |
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))