Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit 9e2396506b131495e6ca8bf0e786bfe5374a4484 1 parent 8e68440
@markhepburn authored
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 ()
Please sign in to comment.
Something went wrong with that request. Please try again.