1. xemacs
  2. prog-modes

Commits

didier-guest  committed eb762b0

Whitespace cleanup

  • Participants
  • Parent commits 951b466
  • Branches default

Comments (0)

Files changed (2)

File ChangeLog

View file
  • Ignore whitespace
+2011-05-15  Didier Verna  <didier@xemacs.org>
+
+	* cl-indent.el (common-lisp-indent-function-1):
+	* cl-indent.el (lisp-lambda-list-keyword-parameter-column):
+	Whitespace cleanup.
+
 2011-05-15  Didier Verna  <didier@xemacs.org>
 
 	* cl-indent.el (lisp-indent-259): Also call

File cl-indent.el

View file
  • Ignore whitespace
 		   ;; 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)))
   "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)