/[emacs]/emacs/lisp/emacs-lisp/cl-indent.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-indent.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by rms, Wed May 29 16:40:34 2002 UTC revision 1.37.2.1 by miles, Fri Apr 4 06:20:16 2003 UTC
# Line 108  If nil, indent backquoted lists as data, Line 108  If nil, indent backquoted lists as data,
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)
# Line 132  If nil, indent backquoted lists as data, Line 132  If nil, indent backquoted lists as data,
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)
# Line 140  If nil, indent backquoted lists as data, Line 140  If nil, indent backquoted lists as data,
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

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.37.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26