[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole cfca16eb9e 04/47: * hversion.el (hyperb:path-
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole cfca16eb9e 04/47: * hversion.el (hyperb:path-being-loaded): Delete function |
Date: |
Sun, 25 Jun 2023 15:58:35 -0400 (EDT) |
branch: externals/hyperbole
commit cfca16eb9ecbdb890fa9b16be546831554780618
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Mats Lidell <mats.lidell@lidells.se>
* hversion.el (hyperb:path-being-loaded): Delete function
* hload-path.el (hyperb:dir): Don't use it as fallback because it's too
hackish and too rarely useful.
---
hload-path.el | 1 -
hversion.el | 27 ---------------------------
hyperbole.el | 6 +++---
3 files changed, 3 insertions(+), 31 deletions(-)
diff --git a/hload-path.el b/hload-path.el
index b71239b7a9..1b5e9dce58 100644
--- a/hload-path.el
+++ b/hload-path.el
@@ -46,7 +46,6 @@ Use `hyperb:wsl-os-p' to test if running under WSL.")
(macroexp-file-name)
(and (stringp load-file-name) load-file-name))
(locate-file "hmouse-tag.el" load-path)
- (hyperb:path-being-loaded)
""))
(error
"(Hyperbole): Failed to set hyperb:dir. Try setting it
manually"))
diff --git a/hversion.el b/hversion.el
index 45f4390bd6..6e11fa45de 100644
--- a/hversion.el
+++ b/hversion.el
@@ -93,33 +93,6 @@ of stack frames (from innermost to outermost)."
nil)
(when debug-flag (nreverse frame-list)))))
-(defun hyperb:path-being-loaded ()
- "Return the full pathname used by the innermost `load' or `require' call.
-Removes any matches for `hyperb:automount-prefixes' before returning
-the pathname."
- (let* ((frame (hyperb:stack-frame '(load require)))
- (function (nth 1 frame))
- file nosuffix)
- (cond ((eq function 'load)
- (setq file (nth 2 frame)
- nosuffix (nth 5 frame)))
- ((eq function 'require)
- (setq file (or (nth 3 frame) (symbol-name (nth 2 frame))))))
- (when (stringp file)
- (setq nosuffix (or nosuffix
- (string-match
- "\\.\\(elc?\\|elc?\\.gz\\|elc?\\.Z\\)$"
- file))
- file (substitute-in-file-name file)
- file (locate-file file load-path
- (when (null nosuffix) '(".elc" ".el" ".el.gz"
".el.Z"))
- ;; accept any existing file
- nil)
- file (if (and (stringp file)
- (string-match hyperb:automount-prefixes file))
- (substring file (1- (match-end 0)))
- file)))))
-
(defun hyperb:window-sys-term (&optional frame)
"Return first part of the term-type if running under a window system, else
nil.
Where a part in the term-type is delimited by a `-' or an `_'."
diff --git a/hyperbole.el b/hyperbole.el
index f270cfc165..7286fa7dce 100644
--- a/hyperbole.el
+++ b/hyperbole.el
@@ -113,9 +113,9 @@
(setq features (delq 'hload-path features)
features (delq 'hversion features)))
- ;; Defines hyperb:path-being-loaded, hyperb:stack-frame,
- ;; (hyperb:window-system) and hyperb:dir, which are used later in
- ;; this file. Also adds Hyperbole to the load-path if need be.
+ ;; Defines hyperb:stack-frame, (hyperb:window-system), and hyperb:dir,
+ ;; which are used later in this file.
+ ;; Also adds Hyperbole to the load-path if need be.
;;
;; This handles the case when the Hyperbole package directory is not yet in
load-path.
(unless (or (require 'hversion nil t)
- [elpa] externals/hyperbole a06d9a4a8c 33/47: Revert "Get rid of `hyperb:stack-frame`", (continued)
- [elpa] externals/hyperbole a06d9a4a8c 33/47: Revert "Get rid of `hyperb:stack-frame`", ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole a69d994d5a 31/47: ibut:operate - Add 2nd edit-flag parameter; non-nil means modifying, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole c085ed7099 39/47: Merge branch 'master' into rsw, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 7bd5a86a4c 40/47: Merge pull request #349 from rswgnu/rsw, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole f0182ad215 44/47: Merge branch 'master' into insert_missing_changelog_entry, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 4842d3fde0 14/47: (man-show): Fix miscompilation, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 3c6dcafe4f 21/47: Revert hunk, will be applied elsewhere, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 1c5327c5fa 26/47: Keep group lines, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole d6415dd593 27/47: Keep orig until explained, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 876ad5cea7 17/47: * hargs.el (hargs:set-string-to-complete): Don't mess with windows, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole cfca16eb9e 04/47: * hversion.el (hyperb:path-being-loaded): Delete function,
ELPA Syncer <=
- [elpa] externals/hyperbole 095cb3c1db 19/47: Use gnu make pattern substitution for load-file command, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 0e006d705d 23/47: Remove XEmacs check, explain NeXT dependency, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole 03b10e117b 01/47: Verify url is called, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole e09292484e 03/47: * hload-path.el (hyperb:dir): Use `macroexp-file-name`, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole d1c349912b 37/47: Merge pull request #348 from rswgnu/rsw_stefan-scratch-hyperbole-20230621-without-questions-no-fixme, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole db55e1a77b 45/47: Merge pull request #346 from rswgnu/insert_missing_changelog_entry, ELPA Syncer, 2023/06/25
- [elpa] externals/hyperbole f7d4494daf 05/47: Try and avoid using `hyperb:stack-frame`, ELPA Syncer, 2023/06/25