From f549d4330f34a0fa6867f3d83832476ce5c4873f Mon Sep 17 00:00:00 2001 From: Thomas Hilke Date: Fri, 15 Sep 2023 10:30:25 +0200 Subject: [PATCH] Remove column quoting from sqlite-mode * lisp/sqlite-mode.el (sqlite-mode--column-names): Unquote column name. (Bug#65998) Copyright-paperwork-exempt: yes --- lisp/sqlite-mode.el | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) 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." -- 2.39.2