diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2022-12-05 15:17:55 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2022-12-05 15:17:55 +0100 |
| commit | a60efa80cdb8c72dacb1e16729a801206a4e80bf (patch) | |
| tree | 67e7edf51c5eb0133d669e67ab00d3b83788c428 /elisp/geiser-edit.el | |
| parent | 47bb86d6829ffa81ec021ee6217379b216d95bfc (diff) | |
| download | geiser-a60efa80cdb8c72dacb1e16729a801206a4e80bf.tar.gz geiser-a60efa80cdb8c72dacb1e16729a801206a4e80bf.tar.bz2 | |
Take the byte-compilers advice into account
Diffstat (limited to 'elisp/geiser-edit.el')
| -rw-r--r-- | elisp/geiser-edit.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el index 480f053..3cafaa0 100644 --- a/elisp/geiser-edit.el +++ b/elisp/geiser-edit.el @@ -188,7 +188,7 @@ or following links in error buffers.") (match-string 2) (or (match-string 3) 0) 'window) - (unless no-fill (fill-region (match-end 0) (point-at-eol))))))) + (unless no-fill (fill-region (match-end 0) (line-end-position))))))) (defun geiser-edit--open-next (&optional n reset) (interactive) @@ -277,7 +277,10 @@ With prefix, asks for the symbol to locate." (defun geiser-pop-symbol-stack () "Pop back to where \\[geiser-edit-symbol-at-point] was last invoked." (interactive) - (xref-pop-marker-stack)) + (if (fboundp 'xref-go-back) + (xref-go-back) + (with-no-warnings + (xref-pop-marker-stack)))) (defun geiser-edit-module (module &optional method no-error) "Asks for a module and opens it in a new buffer." |