Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv8622
Modified Files: movitz-mode.el Log Message: Minor edit.
Date: Mon Jun 7 15:10:54 2004 Author: ffjeld
Index: movitz/movitz-mode.el diff -u movitz/movitz-mode.el:1.6 movitz/movitz-mode.el:1.7 --- movitz/movitz-mode.el:1.6 Mon May 24 07:58:17 2004 +++ movitz/movitz-mode.el Mon Jun 7 15:10:54 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Sep 27 18:12:17 2001 ;;;; -;;;; $Id: movitz-mode.el,v 1.6 2004/05/24 14:58:17 ffjeld Exp $ +;;;; $Id: movitz-mode.el,v 1.7 2004/06/07 22:10:54 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -63,7 +63,7 @@ (point)) (progn (forward-sexp 1) (point))))) - (if (and (string-equal "method" definition-type) + (if (and (equalp "method" definition-type) (char-equal 58 (string-to-char lambda-list))) (let ((qualifier lambda-list) ;; XXX we only deal with one (potential) qualifier..