NOTE: This patch has been committed. xemacs-packages/prog-modes/ChangeLog addition: 2011-05-15 Didier Verna <didier(a)xemacs.org&gt; * cl-indent.el (common-lisp-indent-function-1): * cl-indent.el (lisp-lambda-list-keyword-parameter-column): Whitespace cleanup. XEmacs Packages source patch: Diff command: cvs -q diff -u Files affected: xemacs-packages/prog-modes/cl-indent.el Index: xemacs-packages/prog-modes/cl-indent.el =================================================================== RCS file: /cvsroot/xemacs/XEmacs/packages/xemacs-packages/prog-modes/cl-indent.el,v retrieving revision 1.10 diff -u -u -r1.10 cl-indent.el --- xemacs-packages/prog-modes/cl-indent.el 15 May 2011 11:42:05 -0000 1.10 +++ xemacs-packages/prog-modes/cl-indent.el 15 May 2011 11:53:25 -0000 ＠＠ -302,15 +302,15 ＠＠ ;; No indentation for "'(...)" elements (setq calculated (1+ sexp-column))) ((save-excursion - (goto-char indent-point) - (backward-sexp) - (let ((xxx (buffer-substring-no-properties - (point) (+ (point) 3)))) - (and (eq ?\# (elt xxx 0)) - (or (member (elt xxx 1) '(?\+ ?\-)) - (and (eq ?\! (elt xxx 1)) - (member (elt xxx 2) '(?\+ ?\-))))))) - normal-indent) + (goto-char indent-point) + (backward-sexp) + (let ((xxx (buffer-substring-no-properties + (point) (+ (point) 3)))) + (and (eq ?\# (elt xxx 0)) + (or (member (elt xxx 1) '(?\+ ?\-)) + (and (eq ?\! (elt xxx 1)) + (member (elt xxx 2) '(?\+ ?\-))))))) + normal-indent) ((eq (char-after (1- containing-sexp)) ?\#) ;; "#(...)" (setq calculated (1+ sexp-column))) ＠＠ -424,7 +424,7 ＠＠ "Return the indentation column of a keyword parameter in a lambda-list. The corresponding keyword is searched from END back across s-expressions. If not found, return nil. Otherwise, return the appropriate column, -according to `lisp-lambda-list-keyword-parameter-indentation' and +according to `lisp-lambda-list-keyword-parameter-indentation' and `lisp-lambda-list-keyword-parameter-alignment'." (save-excursion (goto-char end) -- Resistance is futile. You will be jazzimilated. Scientific site: http://www.lrde.epita.fr/~didier Music (Jazz) site: http://www.didierverna.com _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches