Commit 3a3f61fa authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(scheme-indent-sexp): Don't fail when

calculate-scheme-indent returns a one-element list.
parent 37579d7c
......@@ -500,7 +500,8 @@ of the start of the containing expression."
(if (integerp val)
(setcar indent-stack
(setq this-indent val))
(setcar indent-stack (- (car (cdr val))))
(if (cdr val)
(setcar indent-stack (- (car (cdr val)))))
(setq this-indent (car val)))))
(if (/= (current-column) this-indent)
(progn (delete-region bol (point))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment