diff options
| author | Artur Malabarba | 2015-11-14 21:13:12 +0000 |
|---|---|---|
| committer | Artur Malabarba | 2015-11-14 21:13:33 +0000 |
| commit | d24e7833e56eb9ce8731975518da0c7fda3d00f2 (patch) | |
| tree | 5c2f29f990f1d8cfad783f1c3212d67246a4c700 | |
| parent | 278d8c8e6c92729e4a00ae61699bc8f95342ea81 (diff) | |
| download | emacs-d24e7833e56eb9ce8731975518da0c7fda3d00f2.tar.gz emacs-d24e7833e56eb9ce8731975518da0c7fda3d00f2.zip | |
* lisp/progmodes/xref.el (xref-pop-marker-stack): Downgrade errors
Signal user-errors instead.
| -rw-r--r-- | lisp/progmodes/xref.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index 6a3b42ff646..1962614f16d 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el | |||
| @@ -345,10 +345,10 @@ elements is negated." | |||
| 345 | (interactive) | 345 | (interactive) |
| 346 | (let ((ring xref--marker-ring)) | 346 | (let ((ring xref--marker-ring)) |
| 347 | (when (ring-empty-p ring) | 347 | (when (ring-empty-p ring) |
| 348 | (error "Marker stack is empty")) | 348 | (user-error "Marker stack is empty")) |
| 349 | (let ((marker (ring-remove ring 0))) | 349 | (let ((marker (ring-remove ring 0))) |
| 350 | (switch-to-buffer (or (marker-buffer marker) | 350 | (switch-to-buffer (or (marker-buffer marker) |
| 351 | (error "The marked buffer has been deleted"))) | 351 | (user-error "The marked buffer has been deleted"))) |
| 352 | (goto-char (marker-position marker)) | 352 | (goto-char (marker-position marker)) |
| 353 | (set-marker marker nil nil) | 353 | (set-marker marker nil nil) |
| 354 | (run-hooks 'xref-after-return-hook)))) | 354 | (run-hooks 'xref-after-return-hook)))) |