diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-06-04 08:29:37 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-06-04 08:34:16 -0700 |
| commit | 741d04a87979feac2b26e6e7b9414932f4880166 (patch) | |
| tree | 810b6b32dff379e12c483968cc8d61905131dbfc /lisp/emacs-lisp | |
| parent | 7f4558e3d9edbdee6901e5fbcd4a4072f49ec5b9 (diff) | |
| download | emacs-741d04a87979feac2b26e6e7b9414932f4880166.tar.gz | |
Adjust comments/debug to match C bignum code
* 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".
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/ert.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 20d013b0797..ab24efe5a71 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -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)) |