[AC] Understand CLOS method combination types for indentation

[Didier Verna]

NOTE: This patch has been committed. The version below is
informational only (whitespace differences have been removed).

		Dear reviewers,

	the following patch makes cl-indent recognize method combination types
as well as specifiers, thus indent defmethod properly.


xemacs-packages/prog-modes/ChangeLog addition:

2007-02-06  Didier Verna  <didier at xemacs.org>

	* cl-indent.el (lisp-indent-defmethod): Understand method
	combination types as well as specifiers.


XEmacs Packages source patch:
Diff command:   runsocks cvs -q diff -u -t -b -B -w
Files affected: xemacs-packages/prog-modes/cl-indent.el

Index: xemacs-packages/prog-modes/cl-indent.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/prog-modes/cl-indent.el,v
retrieving revision 1.1.1.1
diff -u -u -t -b -B -w -r1.1.1.1 cl-indent.el
--- xemacs-packages/prog-modes/cl-indent.el	14 Jan 1998 06:44:55 -0000	1.1.1.1
+++ xemacs-packages/prog-modes/cl-indent.el	6 Feb 2007 15:31:05 -0000
@@ -382,7 +382,10 @@
                          (forward-sexp)
                          (forward-sexp)
                          (backward-sexp)
-                         (if (looking-at ":")
+                         ;; don't look only for a colon: we would catch
+                         ;; before, after and around methods, but we would
+                         ;; miss method combination types -- dvl
+                         (if (not (looking-at "("))
                              t
                              nil))
                        nil))

-- 
The @-quartet now available on iTunes !   http://www.didierverna.com/records/

Didier Verna	EPITA / LRDE, 14-16 rue Voltaire   Tel.+33 (1) 44 08 01 85
             	94276 Le Kremlin-Bicêtre, France   Fax.+33 (1) 53 14 59 22