From 7f73da1356d141d35047523a8ed0764a95385f7d Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 29 Sep 2022 14:45:59 +1000 Subject: 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 4561af9..fb17015 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 83b3cb6..7f8fa86 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. -- cgit v1.2.3