Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Refactor so that get-tags-list takes the backend as an argument.

  • Loading branch information...
commit bce62edb3b5935dcd21a1ea89f2d38996027a488 1 parent de217f6
authored September 15, 2009

Showing 1 changed file with 5 additions and 5 deletions. Show diff stats Hide diff stats

  1. 10  tags-view.el
10  tags-view.el
@@ -121,8 +121,8 @@ etc."
121 121
       (error
122 122
        (error "Couldn't find implementation of %s for backend %s" fn-sym backend))))
123 123
 
124  
-(defun tv-get-tags-list ()
125  
-  (tv--call-fn-for-backend 'get-tags-list (tv-determine-backend)))
  124
+(defun tv-get-tags-list (backend)
  125
+  (tv--call-fn-for-backend 'get-tags-list backend))
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 ()
@@ -136,9 +136,9 @@ etc).  The following options will be available:
136 136
 
137 137
 \\{tags-history-mode-map}"
138 138
   (interactive)
139  
-  (let ((buf (get-buffer-create "*tags history*"))
140  
-        (tag-items (tv-get-tags-list))
141  
-        (backend (tv-determine-backend)))
  139
+  (let* ((buf (get-buffer-create "*tags history*"))
  140
+         (backend (tv-determine-backend))
  141
+         (tag-items (tv-get-tags-list backend)))
142 142
     (pop-to-buffer buf)
143 143
     (setq buffer-read-only nil)
144 144
     (let ((inhibit-read-only t))

0 notes on commit bce62ed

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