Skip to content
Browse files

Tidy-up (using the data-structure accessors instead of car/cdr)

  • Loading branch information...
1 parent 8e68440 commit 9e2396506b131495e6ca8bf0e786bfe5374a4484 @markhepburn committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 tags-view.el
View
4 tags-view.el
@@ -130,9 +130,9 @@ etc."
(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 (cdr pb)
+ (with-current-buffer (tv--pb-buffer pb)
(save-excursion
- (goto-char (car pb))
+ (goto-char (tv--pb-point pb))
(setq gtags-markers (cons (point-marker) gtags-markers)))))))
(defun tv-view-history ()

0 comments on commit 9e23965

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