From 794afdbc5188ef6f2d78d26302cd78903ce618fa Mon Sep 17 00:00:00 2001 From: gcv Date: Sat, 21 May 2022 14:38:17 -0700 Subject: Add clarifying comments. --- perspective.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- cgit v1.0