diff options
| author | Constantine Vetoshev <gepardcv@gmail.com> | 2021-06-09 06:44:42 -0700 |
|---|---|---|
| committer | Constantine Vetoshev <gepardcv@gmail.com> | 2021-06-09 06:44:42 -0700 |
| commit | a2849f92728e38b2525d1395382b3ac8dc8e42df (patch) | |
| tree | 8d39798589d7c3f557ded685874e4083cfb1aaa4 /perspective.el | |
| parent | b166ad87ac102fc6d999636c426311010dd79df9 (diff) | |
Move xref integration documentation and rename variables.
Diffstat (limited to 'perspective.el')
| -rw-r--r-- | perspective.el | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/perspective.el b/perspective.el index 079095e..1172588 100644 --- a/perspective.el +++ b/perspective.el @@ -1694,17 +1694,22 @@ restored." (pop-to-buffer ibuf) (ibuffer-update nil t))))) + ;;; --- xref code -(defvar persp-xref--marker-ring (make-hash-table :test 'equal)) +(defvar persp--xref-marker-ring (make-hash-table :test 'equal)) + ;;;###autoload -(defun persp-set-xref--marker-ring () +(defun persp-set-xref-marker-ring () "Set xref--marker-ring per persp." + (defvar xref-marker-ring-length) + (defvar xref--marker-ring) (let ((persp-curr-name (persp-name (persp-curr)))) - (unless (gethash persp-curr-name persp-xref--marker-ring) + (unless (gethash persp-curr-name persp--xref-marker-ring) (puthash persp-curr-name (make-ring xref-marker-ring-length) - persp-xref--marker-ring)) - (setq xref--marker-ring (gethash persp-curr-name persp-xref--marker-ring)))) + persp--xref-marker-ring)) + (setq xref--marker-ring (gethash persp-curr-name persp--xref-marker-ring)))) + ;;; --- done |