Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Oops, gtags backend was still returning markers not pb instances -- m…

…uch shorter now too.
  • Loading branch information...
commit de96d36fd271f2872a9e96d4e30fbcda8a2bb63c 1 parent e819e05
Mark Hepburn authored
Showing with 1 addition and 7 deletions.
  1. +1 −7 tags-view.el
View
8 tags-view.el
@@ -126,13 +126,7 @@ etc."
(defun tv-get-tags-list-for-etags ()
(mapcar 'tv--pb-from-marker (ring-elements tags-location-ring)))
(defun tv-get-tags-list-for-gtags ()
- (let ((points-and-buffers (map 'list 'tv--make-pb gtags-point-stack gtags-buffer-stack))
- (gtags-markers nil))
- (dolist (pb points-and-buffers gtags-markers)
- (with-current-buffer (tv--pb-buffer pb)
- (save-excursion
- (goto-char (tv--pb-point pb))
- (setq gtags-markers (cons (point-marker) gtags-markers)))))))
+ (map 'list 'tv--make-pb gtags-point-stack gtags-buffer-stack))
(defun tv-view-history ()
"The main entry point; pops open a buffer with the list of
Please sign in to comment.
Something went wrong with that request. Please try again.