diff options
-rw-r--r-- | hcel-client.el | 3 | ||||
-rw-r--r-- | 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. |