diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/sqlite-mode.el | 4 |
1 files changed, 4 insertions, 0 deletions
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 () |