Function: smie-indent--current-column

smie-indent--current-column is a byte-compiled function defined in smie.el.gz.

Signature

(smie-indent--current-column)

Documentation

Like current-column, but if there's a comment before us, use that.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/smie.el.gz
(defun smie-indent--current-column ()
  "Like `current-column', but if there's a comment before us, use that."
  ;; This is used, so that when we align elements, we don't get
  ;;    toto = { /* foo, */ a,
  ;;                        b }
  ;; but
  ;;    toto = { /* foo, */ a,
  ;;             b }
  (let ((pos (point))
        (lbp (line-beginning-position)))
    (save-excursion
      (unless (and (forward-comment -1) (>= (point) lbp))
        (goto-char pos))
      (current-column))))