Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Fixing bug where front of the list wouldn't be deleted (oops, thought…

… I'd checked for that :S Possibly only partially..)
  • Loading branch information...
commit 89838f510c7bc274ef602670101041f6ebfb37ef 1 parent ce6f3cb
authored September 23, 2009

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

  1. 6  tags-view.el
6  tags-view.el
@@ -249,9 +249,11 @@ Argument is a marker that will be displayed, along with
249 249
 (defun tv-delete-tag-for-etags (stack-position)
250 250
   (ring-remove tags-location-ring stack-position))
251 251
 (defun tv-delete-tag-for-gtags (stack-position)
252  
-  (labels
  252
+  (macrolet
253 253
       ((delete-nth (n lst)
254  
-                   (setcdr (nthcdr (1- n) lst) (nthcdr (1+ n) lst))))
  254
+                   `(if (zerop ,n)
  255
+                        (setq ,lst (cdr ,lst))
  256
+                      (setcdr (nthcdr (1- ,n) ,lst) (nthcdr (1+ ,n) ,lst)))))
255 257
     (delete-nth stack-position gtags-point-stack)
256 258
     (delete-nth stack-position gtags-buffer-stack)))
257 259
 

0 notes on commit 89838f5

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