Skip to content
Browse files

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

  • Loading branch information...
1 parent de217f6 commit bce62edb3b5935dcd21a1ea89f2d38996027a488 Mark Hepburn committed
Showing with 5 additions and 5 deletions.
  1. +5 −5 tags-view.el
10 tags-view.el
@@ -121,8 +121,8 @@ etc."
(error "Couldn't find implementation of %s for backend %s" fn-sym backend))))
-(defun tv-get-tags-list ()
- (tv--call-fn-for-backend 'get-tags-list (tv-determine-backend)))
+(defun tv-get-tags-list (backend)
+ (tv--call-fn-for-backend 'get-tags-list backend))
(defun tv-get-tags-list-for-etags ()
(mapcar 'tv--pb-from-marker (ring-elements tags-location-ring)))
(defun tv-get-tags-list-for-gtags ()
@@ -136,9 +136,9 @@ etc). The following options will be available:
- (let ((buf (get-buffer-create "*tags history*"))
- (tag-items (tv-get-tags-list))
- (backend (tv-determine-backend)))
+ (let* ((buf (get-buffer-create "*tags history*"))
+ (backend (tv-determine-backend))
+ (tag-items (tv-get-tags-list backend)))
(pop-to-buffer buf)
(setq buffer-read-only nil)
(let ((inhibit-read-only t))

0 comments on commit bce62ed

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