[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 0914508: Fix last change of debug.el
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] master 0914508: Fix last change of debug.el |
Date: |
Thu, 27 Dec 2018 04:29:44 -0500 (EST) |
branch: master
commit 091450811b983a8cdd765c25eb347238d9a4c633
Author: Martin Rudalics <address@hidden>
Commit: Martin Rudalics <address@hidden>
Fix last change of debug.el
* lisp/emacs-lisp/debug.el (debug): In noninteractive calls do
the buffer text truncation in the debugger buffer.
---
lisp/emacs-lisp/debug.el | 38 +++++++++++++++++++-------------------
1 file changed, 19 insertions(+), 19 deletions(-)
diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 5c186f7..3affa9c 100644
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -239,23 +239,23 @@ first will be printed into the backtrace buffer."
(with-current-buffer debugger-buffer
(unless (derived-mode-p 'debugger-mode)
(debugger-mode))
- (debugger-setup-buffer debugger-args))
- (when noninteractive
- ;; If the backtrace is long, save the beginning
- ;; and the end, but discard the middle.
- (when (> (count-lines (point-min) (point-max))
- debugger-batch-max-lines)
+ (debugger-setup-buffer debugger-args)
+ (when noninteractive
+ ;; If the backtrace is long, save the beginning
+ ;; and the end, but discard the middle.
+ (when (> (count-lines (point-min) (point-max))
+ debugger-batch-max-lines)
+ (goto-char (point-min))
+ (forward-line (/ 2 debugger-batch-max-lines))
+ (let ((middlestart (point)))
+ (goto-char (point-max))
+ (forward-line (- (/ 2 debugger-batch-max-lines)
+ debugger-batch-max-lines))
+ (delete-region middlestart (point)))
+ (insert "...\n"))
(goto-char (point-min))
- (forward-line (/ 2 debugger-batch-max-lines))
- (let ((middlestart (point)))
- (goto-char (point-max))
- (forward-line (- (/ 2 debugger-batch-max-lines)
- debugger-batch-max-lines))
- (delete-region middlestart (point)))
- (insert "...\n"))
- (goto-char (point-min))
- (message "%s" (buffer-string))
- (kill-emacs -1))
+ (message "%s" (buffer-string))
+ (kill-emacs -1)))
(pop-to-buffer
debugger-buffer
`((display-buffer-reuse-window
@@ -264,9 +264,9 @@ first will be printed into the backtrace buffer."
. ((window-min-height . 10)
(window-height . fit-window-to-buffer)
,@(when (and (window-live-p debugger-previous-window)
- (frame-visible-p
- (window-frame debugger-previous-window)))
- `((previous-window . ,debugger-previous-window))))))
+ (frame-visible-p
+ (window-frame debugger-previous-window)))
+ `((previous-window . ,debugger-previous-window))))))
(setq debugger-window (selected-window))
(if (eq debugger-previous-window debugger-window)
(when debugger-jumping-flag
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 0914508: Fix last change of debug.el,
Martin Rudalics <=