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

calculate-scheme-indent returns a one-element list.

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index d2ea8c1d418d82928bbdb8858c89f8ef6b3dd0d7..8393f2c3d6ff539876c75d64b52738f142b38c99 100644 (file)
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -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))