[elpa] externals/hcel 7f73da1356 2/2: minor changes.

[ELPA Syncer]

branch: externals/hcel
commit 7f73da1356d141d35047523a8ed0764a95385f7d
Author: Yuchen Pei <hi@ypei.me>
Commit: Yuchen Pei <hi@ypei.me>

    minor changes.
    
    - https://lists.gnu.org/archive/html/emacs-devel/2022-09/msg01971.html
    - https://lists.gnu.org/archive/html/emacs-devel/2022-09/msg01444.html
---
 hcel-client.el | 3 +--
 hcel-utils.el  | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/hcel-client.el b/hcel-client.el
index 4561af9014..fb17015f3a 100644
--- a/hcel-client.el
+++ b/hcel-client.el
@@ -61,8 +61,7 @@
   "Call definitionSite with info from an approximate location."
   (when (not (equal (hcel-location-tag approx-location-info)
                     "ApproximateLocation"))
-    (error "An non ApproximateLocation supplied: %s"
-           (prin1-to-string approx-location-info)))
+    (error "An non ApproximateLocation supplied: %S" approx-location-info))
   (when-let* ((package-id (alist-get 'packageId approx-location-info))
               (component-id (alist-get 'componentId approx-location-info))
               (module-name (alist-get 'moduleName approx-location-info))
diff --git a/hcel-utils.el b/hcel-utils.el
index 83b3cb6d1d..7f8fa86f11 100644
--- a/hcel-utils.el
+++ b/hcel-utils.el
@@ -191,7 +191,7 @@ Example of an idSrcSpan:
 (defun hcel-text-property-near-point (prop)
   "Find property prop at point, or just before point."
   (or (get-text-property (point) prop)
-      (get-text-property (max 1 (1- (point))) prop)))
+      (get-text-property (max (point-min) (1- (point))) prop)))
 
 (provide 'hcel-utils)
 ;;; hcel-utils.el ends here.