diff options
| author | gcv <gepardcv@gmail.com> | 2022-05-21 14:38:17 -0700 |
|---|---|---|
| committer | gcv <gepardcv@gmail.com> | 2022-05-21 14:38:17 -0700 |
| commit | 794afdbc5188ef6f2d78d26302cd78903ce618fa (patch) | |
| tree | e4ffec2e2c2271c447b006219b53e441c6ef5412 | |
| parent | fab0243cf84c0d4edcc01026d7363c7a4587fbb7 (diff) | |
Add clarifying comments.
| -rw-r--r-- | perspective.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perspective.el b/perspective.el index 5ac3d39..1254f60 100644 --- a/perspective.el +++ b/perspective.el @@ -2209,6 +2209,7 @@ were merged in from a previous call to `persp-merge'." (with-eval-after-load 'xref (defvar persp--xref-marker-ring (make-hash-table :test 'equal)) (if (boundp 'xref--history) + ;; Emacs 29: (defun persp--set-xref-marker-ring () "Set xref--history per persp." (let ((persp-curr-name (persp-name (persp-curr)))) @@ -2216,6 +2217,7 @@ were merged in from a previous call to `persp-merge'." (puthash persp-curr-name (cons nil nil) persp--xref-marker-ring)) (setq xref--history (gethash persp-curr-name persp--xref-marker-ring)))) + ;; Emacs 28 and earlier: (defun persp--set-xref-marker-ring () "Set xref--marker-ring per persp." (let ((persp-curr-name (persp-name (persp-curr)))) @@ -2225,7 +2227,6 @@ were merged in from a previous call to `persp-merge'." (setq xref--marker-ring (gethash persp-curr-name persp--xref-marker-ring)))))) - ;;; --- done ;;; XXX: Undo nasty kludge necessary for cleanly compiling this source file by |