Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

…uch shorter now too.
  • Loading branch information...
commit de96d36fd271f2872a9e96d4e30fbcda8a2bb63c 1 parent e819e05
authored September 15, 2009

Showing 1 changed file with 1 addition and 7 deletions. Show diff stats Hide diff stats

  1. 8  tags-view.el
8  tags-view.el
@@ -126,13 +126,7 @@ etc."
126 126
 (defun tv-get-tags-list-for-etags ()
127 127
   (mapcar 'tv--pb-from-marker (ring-elements tags-location-ring)))
128 128
 (defun tv-get-tags-list-for-gtags ()
129  
-  (let ((points-and-buffers (map 'list 'tv--make-pb gtags-point-stack gtags-buffer-stack))
130  
-        (gtags-markers nil))
131  
-    (dolist (pb points-and-buffers gtags-markers)
132  
-      (with-current-buffer (tv--pb-buffer pb)
133  
-        (save-excursion
134  
-          (goto-char (tv--pb-point pb))
135  
-          (setq gtags-markers (cons (point-marker) gtags-markers)))))))
  129
+  (map 'list 'tv--make-pb gtags-point-stack gtags-buffer-stack))
136 130
 
137 131
 (defun tv-view-history ()
138 132
   "The main entry point; pops open a buffer with the list of

0 notes on commit de96d36

Please sign in to comment.
Something went wrong with that request. Please try again.