[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl-indent.el

[Juanma Barranquero]

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