[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dape e817385626 2/3: Don't show "Unknown mime type nil,
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dape e817385626 2/3: Don't show "Unknown mime type nil, see `dape-mime-mode-alist`" (#125) |
Date: |
Thu, 4 Jul 2024 12:57:53 -0400 (EDT) |
branch: externals/dape
commit e817385626a20ac02130bea22a090da3825004c6
Author: Damien Cassou <damien@cassou.me>
Commit: GitHub <noreply@github.com>
Don't show "Unknown mime type nil, see `dape-mime-mode-alist`" (#125)
There is nothing the user can do if the mimetype is nil.
---
dape.el | 13 +++++++------
1 file changed, 7 insertions(+), 6 deletions(-)
diff --git a/dape.el b/dape.el
index a12321c432..5f67acfc30 100644
--- a/dape.el
+++ b/dape.el
@@ -3119,12 +3119,13 @@ See `dape-request' for expected CB signature."
(plist-put dape--source-buffers
(plist-get source :sourceReference) buffer))
(with-current-buffer buffer
- (if-let ((mode
- (alist-get mimeType dape-mime-mode-alist nil nil
'equal)))
- (unless (eq major-mode mode)
- (funcall mode))
- (message "Unknown mime type %s, see `dape-mime-mode-alist'"
- mimeType))
+ (when mimeType
+ (if-let ((mode
+ (alist-get mimeType dape-mime-mode-alist nil nil
'equal)))
+ (unless (eq major-mode mode)
+ (funcall mode))
+ (message "Unknown mime type %s, see `dape-mime-mode-alist'"
+ mimeType)))
(setq-local buffer-read-only t
dape--source source)
(let ((inhibit-read-only t))