branch: externals/hyperbole
commit 232ed572d8df97a5bec575bc9a8656816ec675e3
Merge: 893b778fcc 61937530ea
Author: bw <r...@gnu.org>
Commit: bw <r...@gnu.org>
Merge branch 'master' into rsw
---
ChangeLog | 2 ++
hypb.el | 11 ++++++++---
2 files changed, 10 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 386af52a05..4abf34d01b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -93,6 +93,8 @@
2024-05-18 Mats Lidell <ma...@gnu.org>
+* hypb.el (hypb:configuration): Add info about Emacs native comp.
+
* hargs.el (hargs:action-get): Add Emacs 30 closure support.
2024-05-17 Mats Lidell <ma...@gnu.org>
diff --git a/hypb.el b/hypb.el
index 5157c2d26c..c35f4a0da9 100644
--- a/hypb.el
+++ b/hypb.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 6-Oct-91 at 03:42:38
-;; Last-Mod: 10-Mar-24 at 11:51:55 by Bob Weiner
+;; Last-Mod: 18-May-24 at 18:00:28 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -328,8 +328,13 @@ Use optional OUT-BUF if present, else the current buffer."
(goto-char (point-max)))
(delete-blank-lines) (delete-blank-lines)
(let ((start (point)))
- (insert (format "I use:\tEditor: GNU Emacs %s\n\tHyperbole: %s\n"
- emacs-version hyperb:version))
+ (insert (format "I use:\tEditor: GNU Emacs %s %s\n\tHyperbole:
%s\n"
+ emacs-version
+ (if (and (fboundp #'native-comp-available-p)
+ (native-comp-available-p))
+ "with native comp"
+ "")
+ hyperb:version))
(when (and (boundp 'br-version) (stringp br-version))
(insert (format "\tOO-Browser: %s\n" br-version)))
(when (and (boundp 'system-configuration) (stringp system-configuration))
