procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adjust comments/debug to match C bignum code

Browse source 
* doc/lispintro/emacs-lisp-intro.texi (Digression into C):
Adjust to match current C code.
* lisp/emacs-lisp/ert.el (ert--force-message-log-buffer-truncation):
Simplify.
* src/.gdbinit (Lisp_Object_Printer.to_string): Return
a string that says "make_fixnum", not "make_number".
This commit is contained in:
Paul Eggert 2019-06-04 08:29:37 -07:00
parent 7f4558e3d9
commit 741d04a879
3 changed files with 24 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/ert.el
View file

@ -792,13 +792,13 @@ This mainly sets up debugger-related bindings."
This can be useful after reducing the value of `message-log-max'."
(with-current-buffer (messages-buffer)
;; This is a reimplementation of this part of message_dolog() in xdisp.c:
;; if (NATNUMP (Vmessage_log_max))
;; if (FIXNATP (Vmessage_log_max))
;; {
;; scan_newline (Z, Z_BYTE, BEG, BEG_BYTE,
;; -XFASTINT (Vmessage_log_max) - 1, 0);
;; del_range_both (BEG, BEG_BYTE, PT, PT_BYTE, 0);
;; -XFIXNAT (Vmessage_log_max) - 1, false);
;; del_range_both (BEG, BEG_BYTE, PT, PT_BYTE, false);
;; }
(when (and (integerp message-log-max) (>= message-log-max 0))
(when (natnump message-log-max)
(let ((begin (point-min))
(end (save-excursion
(goto-char (point-max))