Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

  • Loading branch information...
commit 9e2396506b131495e6ca8bf0e786bfe5374a4484 1 parent 8e68440
Mark Hepburn authored September 14, 2009

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

  1. 4  tags-view.el
4  tags-view.el
@@ -130,9 +130,9 @@ etc."
130 130
   (let ((points-and-buffers (map 'list 'tv--make-pb gtags-point-stack gtags-buffer-stack))
131 131
         (gtags-markers nil))
132 132
     (dolist (pb points-and-buffers gtags-markers)
133  
-      (with-current-buffer (cdr pb)
  133
+      (with-current-buffer (tv--pb-buffer pb)
134 134
         (save-excursion
135  
-          (goto-char (car pb))
  135
+          (goto-char (tv--pb-point pb))
136 136
           (setq gtags-markers (cons (point-marker) gtags-markers)))))))
137 137
 
138 138
 (defun tv-view-history ()

0 notes on commit 9e23965

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