[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: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-indent.el |
Date: |
Fri, 04 Apr 2003 01:21:57 -0500 |
Index: emacs/lisp/emacs-lisp/cl-indent.el
diff -c emacs/lisp/emacs-lisp/cl-indent.el:1.38
emacs/lisp/emacs-lisp/cl-indent.el:1.39
*** emacs/lisp/emacs-lisp/cl-indent.el:1.38 Sat Sep 7 02:45:43 2002
--- emacs/lisp/emacs-lisp/cl-indent.el Tue Feb 4 07:53:34 2003
***************
*** 132,138 ****
(+ loop-indentation lisp-loop-keyword-indentation))
(t
(+ loop-indentation lisp-loop-forms-indentation)))))
!
;;;###autoload
(defun common-lisp-indent-function (indent-point state)
--- 132,138 ----
(+ loop-indentation lisp-loop-keyword-indentation))
(t
(+ loop-indentation lisp-loop-forms-indentation)))))
!
;;;###autoload
(defun common-lisp-indent-function (indent-point state)
***************
*** 140,147 ****
(looking-at "([Ll][Oo][Oo][Pp]"))
(common-lisp-loop-part-indentation indent-point state)
(common-lisp-indent-function-1 indent-point state)))
!
!
(defun common-lisp-indent-function-1 (indent-point state)
(let ((normal-indent (current-column)))
;; Walk up list levels until we see something
--- 140,147 ----
(looking-at "([Ll][Oo][Oo][Pp]"))
(common-lisp-loop-part-indentation indent-point state)
(common-lisp-indent-function-1 indent-point state)))
!
!
(defun common-lisp-indent-function-1 (indent-point state)
(let ((normal-indent (current-column)))
;; Walk up list levels until we see something
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-indent.el,
Miles Bader <=