procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* emacs-lisp/cl-indent.el (lisp-indent-259): Indent nil's in the

Browse source 
pattern normally.
This commit is contained in:
Chong Yidong 2006-10-26 20:39:53 +00:00
parent ea968dfbfd
commit bec9dc7b07
2 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/emacs-lisp/cl-indent.el
View file

@ -373,14 +373,14 @@ If nil, indent backquoted lists as data, i.e., like quoted lists."
;; Too few elements in pattern.
(throw 'exit normal-indent)))
((eq tem 'nil)
(throw 'exit (list normal-indent containing-form-start)))
((eq tem '&lambda)
(throw 'exit
(cond ((null p)
(list (+ sexp-column 4) containing-form-start))
((null (cdr p))
(+ sexp-column 1))
(t normal-indent))))
(throw 'exit normal-indent))
((eq tem '&lambda)
(throw 'exit
(cond ((null p)
(list (+ sexp-column 4) containing-form-start))
((null (cdr p))
(+ sexp-column 1))
(t normal-indent))))
((integerp tem)
(throw 'exit
(if (null p) ;not in subforms