/[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.38 by jpw, Sat Sep 7 06:45:43 2002 UTC revision 1.39 by lektu, Tue Feb 4 12:53:34 2003 UTC
# 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.38  
changed lines
  Added in v.1.39

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