branch: externals/dape
commit abce0212dc2f4da89c47fcf26227d5ab0fafead1
Author: Daniel Pettersson <dan...@dpettersson.net>
Commit: Daniel Pettersson <dan...@dpettersson.net>

    Limit truncate-lines to {scope,watch} info buffers
---
 dape.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/dape.el b/dape.el
index 6d75efe38a..14306cab5e 100644
--- a/dape.el
+++ b/dape.el
@@ -3536,7 +3536,6 @@ Each buffers store its own debounce context."
   "Generic mode to derive all other info buffer modes from."
   :interactive nil
   (setq-local buffer-read-only t
-              truncate-lines t
               cursor-in-non-selected-windows nil
               revert-buffer-function #'dape--info-revert
               dape--info-debounce-timer (timer-create))
@@ -4361,7 +4360,8 @@ calls should continue.  If NO-HANDLES is non nil skip + - 
handles."
 (define-derived-mode dape-info-scope-mode dape-info-parent-mode "Scope"
   "Major mode for Dape info scope."
   :interactive nil
-  (setq dape--info-buffer-index 0)
+  (setq dape--info-buffer-index 0
+        truncate-lines t)
   (dape--info-update-with (insert "No scope information available.")))
 
 (cl-defmethod dape--info-revert (&context (major-mode (eql 
dape-info-scope-mode))
@@ -4409,7 +4409,8 @@ calls should continue.  If NO-HANDLES is non nil skip + - 
handles."
 
 (define-derived-mode dape-info-watch-mode dape-info-parent-mode "Watch"
   "Major mode for Dape info watch."
-  :interactive nil)
+  :interactive nil
+  (setq truncate-lines t))
 
 (cl-defmethod dape--info-revert (&context (major-mode (eql 
dape-info-watch-mode))
                                           &optional _ignore-auto _noconfirm 
_preserve-modes)

Reply via email to