From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 12 Dec 2021 09:22:52 +0000 (+0100)
Subject: Check for support in sqlite-mode-open-file
X-Git-Tag: emacs-29.0.90~3597^2~4
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c9adafa93193a5f80d1254e04de478b145add89;p=emacs.git

Check for support in sqlite-mode-open-file

* lisp/sqlite-mode.el (sqlite-mode-open-file): Error out earlier
when we don't have sqlite support.
---

diff --git a/lisp/sqlite-mode.el b/lisp/sqlite-mode.el
index 43d76c4fd70..082eb8276e8 100644
--- a/lisp/sqlite-mode.el
+++ b/lisp/sqlite-mode.el
@@ -52,6 +52,8 @@
 (defun sqlite-mode-open-file (file)
   "Browse the contents of an sqlite file."
   (interactive "fSQLite file name: ")
+  (unless (sqlite-available-p)
+    (error "This Emacs doesn't have SQLite support, so it can't view SQLite files"))
   (pop-to-buffer (get-buffer-create
                   (format "*SQLite %s*" (file-name-nondirectory file))))
   (sqlite-mode)