430 |
(parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t) |
(parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t) |
431 |
(if (and (elt state 2) |
(if (and (elt state 2) |
432 |
(not (looking-at "\\sw\\|\\s_"))) |
(not (looking-at "\\sw\\|\\s_"))) |
433 |
;; car of form doesn't seem to be a a symbol |
;; car of form doesn't seem to be a symbol |
434 |
(progn |
(progn |
435 |
(if (not (> (save-excursion (forward-line 1) (point)) |
(if (not (> (save-excursion (forward-line 1) (point)) |
436 |
calculate-lisp-indent-last-sexp)) |
calculate-lisp-indent-last-sexp)) |