diff options
Diffstat (limited to 'hcel-utils.el')
| -rw-r--r-- | hcel-utils.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/hcel-utils.el b/hcel-utils.el index b44f885..08ff105 100644 --- a/hcel-utils.el +++ b/hcel-utils.el @@ -75,11 +75,12 @@ Example of an idSrcSpan: (col-beg (alist-get 'column (alist-get 'start span))) (line-end (alist-get 'line (alist-get 'end span))) (col-end (alist-get 'column (alist-get 'end span)))) - (hcel- buffer-substring-line-column line-beg (1- col-beg) line-end (1- col-end)))) + (hcel-buffer-substring-line-column line-beg (1- col-beg) line-end (1- col-end)))) ;; buffers and strings manipulation (defun hcel-goto-line-column (line column) - (goto-line line) + (goto-char (point-min)) + (forward-line (1- line)) (move-to-column column)) (defun hcel-unquote-html (html) @@ -169,7 +170,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 0 (1- (point))) prop))) + (get-text-property (max 1 (1- (point))) prop))) (provide 'hcel-utils) ;;; hcel-utils.el ends here. |