diff options
| author | Mattias EngdegÄrd | 2023-01-26 12:36:20 +0100 |
|---|---|---|
| committer | Mattias EngdegÄrd | 2023-01-26 12:36:20 +0100 |
| commit | dfdc0f5fb7b10e737c3c8e2bdb1eb873a1e91bd7 (patch) | |
| tree | 34ba26c8137a7a4a192b2cbf8fce58d402833dac | |
| parent | fce07d461dec3128c2a3618adbbb4794a45b1fdb (diff) | |
| download | emacs-dfdc0f5fb7b10e737c3c8e2bdb1eb873a1e91bd7.tar.gz emacs-dfdc0f5fb7b10e737c3c8e2bdb1eb873a1e91bd7.zip | |
Fix xref-clear-marker-stack refactoring mistake
* lisp/progmodes/xref.el (xref-clear-marker-stack):
Clear the history correctly. Changing a lexical variable has no effect.
| -rw-r--r-- | lisp/progmodes/xref.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el index 916d83d407b..4db0df6c3b8 100644 --- a/lisp/progmodes/xref.el +++ b/lisp/progmodes/xref.el | |||
| @@ -568,7 +568,8 @@ This can be used from `xref-after-jump-hook', for instance.") | |||
| 568 | (dolist (l (list (car history) (cdr history))) | 568 | (dolist (l (list (car history) (cdr history))) |
| 569 | (dolist (m l) | 569 | (dolist (m l) |
| 570 | (set-marker m nil nil))) | 570 | (set-marker m nil nil))) |
| 571 | (setq history (cons nil nil))) | 571 | (setcar history nil) |
| 572 | (setcdr history nil)) | ||
| 572 | nil) | 573 | nil) |
| 573 | 574 | ||
| 574 | ;;;###autoload | 575 | ;;;###autoload |