From: Thomas Hilke <t.hilke@rollomatic.ch>
Date: Fri, 15 Sep 2023 08:30:25 +0000 (+0200)
Subject: Remove column quoting from sqlite-mode
X-Git-Tag: emacs-29.1.90~74
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f549d4330f34a0fa6867f3d83832476ce5c4873f;p=emacs.git

Remove column quoting from sqlite-mode

* lisp/sqlite-mode.el (sqlite-mode--column-names): Unquote column
name.  (Bug#65998)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/sqlite-mode.el b/lisp/sqlite-mode.el
index 71c9e57fc12..38e9f84b842 100644
--- a/lisp/sqlite-mode.el
+++ b/lisp/sqlite-mode.el
@@ -136,22 +136,7 @@
 
 (defun sqlite-mode--column-names (table)
   "Return a list of the column names for TABLE."
-  (let ((sql
-         (caar
-          (sqlite-select
-           sqlite--db
-           "select sql from sqlite_master where tbl_name = ? AND type = 'table'"
-           (list table)))))
-    (with-temp-buffer
-      (insert sql)
-      (mapcar #'string-trim
-              (split-string
-               ;; Extract the args to CREATE TABLE.  Point is
-               ;; currently at its end.
-               (buffer-substring
-                (1- (point))                          ; right before )
-                (1+ (progn (backward-sexp) (point)))) ; right after (
-               ",")))))
+  (mapcar (lambda (row) (nth 1 row)) (sqlite-select sqlite--db (format "pragma table_info(%s)" table))))
 
 (defun sqlite-mode-list-data ()
   "List the data from the table under point."