Function: sqlind-backward-syntactic-ws

sqlind-backward-syntactic-ws is a natively compiled function defined in sql-indent.el.

Signature

(sqlind-backward-syntactic-ws)

Documentation

Move point backwards over whitespace and comments.

Leave point on the first character which is not syntactic whitespace, or at the beginning of the buffer.

Source Code

;; Defined in /nix/store/jxjf2h9nnkdqnn1w1mr0ag8bqng2rlrs-emacs-packages-deps/share/emacs/site-lisp/elpa/sql-indent-1.7/sql-indent.el
(defun sqlind-backward-syntactic-ws ()
  "Move point backwards over whitespace and comments.
Leave point on the first character which is not syntactic
whitespace, or at the beginning of the buffer."
  (let ((done nil))
    (while (not done)
      (skip-chars-backward " \t\n\r\f\v")
      (unless (eq (point) (point-min))
	(forward-char -1))
      (let ((pps (syntax-ppss (point))))
	(if (nth 4 pps)                 ; inside a comment?
	    (goto-char (nth 8 pps))     ; move to comment start than repeat
          (setq done t)))))
  (point))