branch: externals/hyperbole
commit e1bd2e95e50a17008205245c4336c1ffcee16ccd
Author: Robert Weiner <[email protected]>
Commit: Robert Weiner <[email protected]>
Revert Stefan set-buffer and macroexp-file-name (not in Emacs 27.1)
---
hactypes.el | 4 ++--
hload-path.el | 6 ++----
2 files changed, 4 insertions(+), 6 deletions(-)
diff --git a/hactypes.el b/hactypes.el
index 811f84d5d7..bd69cb4890 100644
--- a/hactypes.el
+++ b/hactypes.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 23-Sep-91 at 20:34:36
-;; Last-Mod: 24-Jun-23 at 09:44:22 by Mats Lidell
+;; Last-Mod: 25-Jun-23 at 09:52:16 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -717,7 +717,7 @@ Optional SECTIONS-START limits toc entries to those after
that point."
(insert "Sections of " rfc-buf-name ":\n")
(set-buffer-modified-p nil))
(when opoint
- (set-buffer buf-name)
+ (select-buffer buf-name)
(goto-char opoint))))
(defact text-toc (section)
diff --git a/hload-path.el b/hload-path.el
index 7265215016..34ad0f8115 100644
--- a/hload-path.el
+++ b/hload-path.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 29-Jun-16 at 14:39:33
-;; Last-Mod: 25-Jun-23 at 10:09:17 by Mats Lidell
+;; Last-Mod: 25-Jun-23 at 09:58:19 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -42,9 +42,7 @@ Use `hyperb:wsl-os-p' to test if running under WSL.")
;;; ************************************************************************
(defvar hyperb:dir (or (file-name-directory
- (or (if (fboundp 'macroexp-file-name) ;Emacsā„28
- (macroexp-file-name)
- (and (stringp load-file-name) load-file-name))
+ (or (and (stringp load-file-name) load-file-name)
(locate-file "hmouse-tag.el" load-path)
""))
(error
