[elpa] externals/hyperbole e1bd2e95e5 34/47: Revert Stefan set-buffer and macroexp-file-name (not in Emacs 27.1)

[ELPA Syncer]

branch: externals/hyperbole
commit e1bd2e95e50a17008205245c4336c1ffcee16ccd
Author: Robert Weiner <rsw@gnu.org>
Commit: Robert Weiner <rsw@gnu.org>

    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