From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 15 Jan 2023 10:06:54 +0000 (+0200)
Subject: Improve error message from sqlite-mode.el
X-Git-Tag: emacs-29.0.90~717
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f5008b9b2a;p=emacs.git

Improve error message from sqlite-mode.el

* lisp/sqlite-mode.el (sqlite-mode-open-file): Add error
checking.  (Bug#60490)
---

diff --git a/lisp/sqlite-mode.el b/lisp/sqlite-mode.el
index 83762b61943..c3047c786f7 100644
--- a/lisp/sqlite-mode.el
+++ b/lisp/sqlite-mode.el
@@ -55,10 +55,14 @@
   (interactive "fSQLite file name: ")
   (unless (sqlite-available-p)
     (error "This Emacs doesn't have SQLite support, so it can't view SQLite files"))
+  (if (file-remote-p file)
+      (error "Remote SQLite files are not yet supported"))
   (pop-to-buffer (get-buffer-create
                   (format "*SQLite %s*" (file-name-nondirectory file))))
   (sqlite-mode)
   (setq-local sqlite--db (sqlite-open file))
+  (unless (sqlitep sqlite--db)
+    (error "`sqlite-open' failed to open SQLite file"))
   (sqlite-mode-list-tables))
 
 (defun sqlite-mode-list-tables ()