[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [elpa] externals/hyperbole 9faa8b69ae 1/3: Doc new Assist Mouse Key
From: |
Stefan Monnier |
Subject: |
Re: [elpa] externals/hyperbole 9faa8b69ae 1/3: Doc new Assist Mouse Key window drag ibut creation |
Date: |
Wed, 24 May 2023 10:08:04 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) |
> @@ -105,20 +105,20 @@ the pathname."
> nosuffix (nth 5 frame)))
> ((eq function 'require)
> (setq file (or (nth 3 frame) (symbol-name (nth 2 frame))))))
> - (if (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
> - (if (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)))))
> + (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) '(".eln" ".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)))))
Really? When did you ever bump into a `.eln` file along `load-path`?
BTW, among my `scratch/hyperbole` patches, there's the one below, which
removes this function, so I wonder in which circumstance you
found the need for the above change.
Stefan
commit e126a76e8fdca5193b2ecd6b6143b573d28c1866
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon Apr 3 13:43:57 2023 -0400
* 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.
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 5ae7979204..9803c9cdbe 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) '(".eln" ".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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Re: [elpa] externals/hyperbole 9faa8b69ae 1/3: Doc new Assist Mouse Key window drag ibut creation,
Stefan Monnier <=