108 |
|
|
109 |
|
|
110 |
(defun extended-loop-p (loop-start) |
(defun extended-loop-p (loop-start) |
111 |
"True if an extended loop form starta at LOOP-START." |
"True if an extended loop form starts at LOOP-START." |
112 |
(condition-case () |
(condition-case () |
113 |
(save-excursion |
(save-excursion |
114 |
(goto-char loop-start) |
(goto-char loop-start) |
132 |
(+ loop-indentation lisp-loop-keyword-indentation)) |
(+ loop-indentation lisp-loop-keyword-indentation)) |
133 |
(t |
(t |
134 |
(+ loop-indentation lisp-loop-forms-indentation))))) |
(+ loop-indentation lisp-loop-forms-indentation))))) |
135 |
|
|
136 |
|
|
137 |
;;;###autoload |
;;;###autoload |
138 |
(defun common-lisp-indent-function (indent-point state) |
(defun common-lisp-indent-function (indent-point state) |
140 |
(looking-at "([Ll][Oo][Oo][Pp]")) |
(looking-at "([Ll][Oo][Oo][Pp]")) |
141 |
(common-lisp-loop-part-indentation indent-point state) |
(common-lisp-loop-part-indentation indent-point state) |
142 |
(common-lisp-indent-function-1 indent-point state))) |
(common-lisp-indent-function-1 indent-point state))) |
143 |
|
|
144 |
|
|
145 |
(defun common-lisp-indent-function-1 (indent-point state) |
(defun common-lisp-indent-function-1 (indent-point state) |
146 |
(let ((normal-indent (current-column))) |
(let ((normal-indent (current-column))) |
147 |
;; Walk up list levels until we see something |
;; Walk up list levels until we see something |