Function: tuareg--skip-backward-comment

tuareg--skip-backward-comment is a natively compiled function defined in tuareg.el.

Signature

(tuareg--skip-backward-comment)

Documentation

Skip backward a single comment and at most one preceding newline.

Return a non-nil value if a comment was skipped.

Source Code

;; Defined in /nix/store/6mbh851dhnag8f92qfrlh9ckldzwf6c6-emacs-packages-deps/share/emacs/site-lisp/elpa/tuareg-20260626.936/tuareg.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                 Phrase movements and indentation

(defun tuareg--skip-backward-comment ()
  "Skip backward a single comment and at most one preceding newline.
Return a non-nil value if a comment was skipped."
  ;; We do not want to skip newlines after the comment (as
  ;; `forward-comment'), so we skip spaces by hand and check we are at
  ;; the end of a comment.
  (skip-chars-backward " \t")
  (let ((opoint (point)))
    (if (and (char-equal (preceding-char) ?\)) (forward-comment -1))
        (progn
          (skip-chars-backward " \t")
          (skip-chars-backward "\n" (1- (point)))
          t)
      (goto-char opoint)
      nil)))