[nongnu] elpa/emacsql 18b40213fd 403/427: No longer use obsolete generalized variable `point'

[ELPA Syncer]

branch: elpa/emacsql
commit 18b40213fdc4cab2f836f5dc3f42b12f3c27af66
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    No longer use obsolete generalized variable `point'
    
    Made obsolete in 29.1 / 48aacbf292fbe8d4be7761f83bf87de93497df27.
---
 emacsql-compiler.el | 6 +++---
 emacsql-mysql.el    | 4 ++--
 emacsql-psql.el     | 4 ++--
 emacsql-sqlite.el   | 2 +-
 emacsql.el          | 8 ++++----
 5 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/emacsql-compiler.el b/emacsql-compiler.el
index c5a9357c31..927a8de330 100644
--- a/emacsql-compiler.el
+++ b/emacsql-compiler.el
@@ -59,12 +59,12 @@
   "Single-quote (scalar) STRING for use in a SQL expression."
   (with-temp-buffer
     (insert string)
-    (setf (point) (point-min))
+    (goto-char (point-min))
     (while (re-search-forward "'" nil t)
       (replace-match "''"))
-    (setf (point) (point-min))
+    (goto-char (point-min))
     (insert "'")
-    (setf (point) (point-max))
+    (goto-char (point-max))
     (insert "'")
     (buffer-string)))
 
diff --git a/emacsql-mysql.el b/emacsql-mysql.el
index 211dccf4e0..9927b561ac 100644
--- a/emacsql-mysql.el
+++ b/emacsql-mysql.el
@@ -112,13 +112,13 @@ 
http://dev.mysql.com/doc/refman/5.5/en/reserved-words.html";)
   (let ((length (length emacsql-mysql-sentinel)))
     (with-current-buffer (emacsql-buffer connection)
       (and (>= (buffer-size) length)
-           (progn (setf (point) (- (point-max) length))
+           (progn (goto-char (- (point-max) length))
                   (looking-at emacsql-mysql-sentinel))))))
 
 (cl-defmethod emacsql-parse ((connection emacsql-mysql-connection))
   (with-current-buffer (emacsql-buffer connection)
     (let ((standard-input (current-buffer)))
-      (setf (point) (point-min))
+      (goto-char (point-min))
       (when (looking-at "ERROR")
         (search-forward ": ")
         (signal 'emacsql-error
diff --git a/emacsql-psql.el b/emacsql-psql.el
index e544d7e28a..14a74aed8a 100644
--- a/emacsql-psql.el
+++ b/emacsql-psql.el
@@ -126,7 +126,7 @@ 
http://www.postgresql.org/docs/7.3/static/sql-keywords-appendix.html";)
 (cl-defmethod emacsql-check-error ((connection emacsql-psql-connection))
   (with-current-buffer (emacsql-buffer connection)
     (let ((case-fold-search t))
-      (setf (point) (point-min))
+      (goto-char (point-min))
       (when (looking-at "error:")
         (let* ((beg (line-beginning-position))
                (end (line-end-position)))
@@ -136,7 +136,7 @@ 
http://www.postgresql.org/docs/7.3/static/sql-keywords-appendix.html";)
   (emacsql-check-error connection)
   (with-current-buffer (emacsql-buffer connection)
     (let ((standard-input (current-buffer)))
-      (setf (point) (point-min))
+      (goto-char (point-min))
       (cl-loop until (looking-at "]")
                collect (read) into row
                when (looking-at "\n")
diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el
index 269b44e3b7..7fad320ef4 100644
--- a/emacsql-sqlite.el
+++ b/emacsql-sqlite.el
@@ -154,7 +154,7 @@ buffer. This is for debugging purposes."
         (case-fold-search nil))
     (with-temp-buffer
       (insert-file-contents makefile)
-      (setf (point) (point-min))
+      (goto-char (point-min))
       (cl-loop while (re-search-forward "-D[A-Z0-9_=]+" nil :no-error)
                collect (match-string 0)))))
 
diff --git a/emacsql.el b/emacsql.el
index 7b22a25d6a..c35c6782cd 100644
--- a/emacsql.el
+++ b/emacsql.el
@@ -136,7 +136,7 @@ MESSAGE should not have a newline on the end."
       (unless (buffer-live-p buffer)
         (setq buffer (emacsql-enable-debugging connection)))
       (with-current-buffer buffer
-        (setf (point) (point-max))
+        (goto-char (point-max))
         (princ (concat message "\n") buffer)))))
 
 ;;; Sending and receiving
@@ -215,7 +215,7 @@ specific error conditions."
 (cl-defmethod emacsql-parse ((connection emacsql-protocol-mixin))
   "Parse well-formed output into an s-expression."
   (with-current-buffer (emacsql-buffer connection)
-    (setf (point) (point-min))
+    (goto-char (point-min))
     (let* ((standard-input (current-buffer))
            (value (read)))
       (if (eql value 'error)
@@ -337,7 +337,7 @@ Each column must be a plain symbol, no expressions allowed 
here."
 (defun emacsql--indent ()
   "Indent and wrap the SQL expression in the current buffer."
   (save-excursion
-    (setf (point) (point-min))
+    (goto-char (point-min))
     (let ((case-fold-search nil))
       (while (search-forward-regexp " [A-Z]+" nil :no-error)
         (when (> (current-column) (* fill-column 0.8))
@@ -405,7 +405,7 @@ A prefix argument causes the SQL to be printed into the 
current buffer."
       (beginning-of-defun)
       (let ((containing-sexp (elt (parse-partial-sexp (point) start) 1)))
         (when containing-sexp
-          (setf (point) containing-sexp)
+          (goto-char containing-sexp)
           (looking-at "\\["))))))
 
 (defadvice calculate-lisp-indent (around emacsql-vector-indent disable)