diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-09-29 14:45:59 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-09-29 14:45:59 +1000 |
| commit | 7f73da1356d141d35047523a8ed0764a95385f7d (patch) | |
| tree | dcfb69447a97b5f06ee1aa06ccb82e1bde775be1 | |
| parent | 5e9cd756af1e0b1bbd54103204189832e4860527 (diff) | |
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
| -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. |