home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / gnu / emacs / bug / 1469 < prev    next >
Encoding:
Text File  |  1992-11-11  |  4.3 KB  |  146 lines
  1. Newsgroups: gnu.emacs.bug
  2. Path: sparky!uunet!charon.amdahl.com!pacbell.com!decwrl!netsys!agate!ames!sun-barr!cs.utexas.edu!zaphod.mps.ohio-state.edu!cis.ohio-state.edu!osf.ORG!weisman
  3. From: weisman@osf.ORG (Dave Weisman)
  4. Subject: Small bug in harris-tags
  5. Message-ID: <WEISMAN.92Nov10185013@macaroni.osf.org>
  6. Sender: gnulists@ai.mit.edu
  7. Organization: Open Software Foundation
  8. Distribution: gnu
  9. Date: Tue, 10 Nov 1992 23:50:13 GMT
  10. Approved: bug-gnu-emacs@prep.ai.mit.edu
  11. Lines: 133
  12.  
  13. There is a small bug in the Harris tags package.  The symptom is
  14. that when using etags files, the wrong location may sometimes be
  15. found.
  16.  
  17. In the function find-tag there are several places where the
  18. buffer-local variable traditional-tags-table is (incorrectly)
  19. examined outside of its buffer.  The fix is to make a copy while
  20. in the correct buffer and subsequently examine the copy.  Context
  21. diff follows.
  22.  
  23. Dave
  24.  
  25. ======================================================================
  26.  
  27. *** c:/demacs/lisp2/harris-ta.el    Sat Aug 22 19:41:28 1992
  28. --- c:/demacs/lispdw/harris-ta.el    Mon Nov  9 14:10:48 1992
  29. ***************
  30. *** 320,326
  31.     (interactive (if current-prefix-arg
  32.              '(nil t)
  33.            (find-tag-tag "Find tag: ")))
  34. !   (let (buffer file linebeg startpos startline)
  35.       (save-excursion
  36.         (visit-tags-table-buffer)
  37.         (if next (setq tagname last-tag)
  38.  
  39. --- 320,326 -----
  40.     (interactive (if current-prefix-arg
  41.              '(nil t)
  42.            (find-tag-tag "Find tag: ")))
  43. !   (let (buffer file linebeg startpos startline traditional-tags-table-copy)
  44.       (save-excursion
  45.         (visit-tags-table-buffer)
  46.   
  47. ***************
  48. *** 323,328
  49.     (let (buffer file linebeg startpos startline)
  50.       (save-excursion
  51.         (visit-tags-table-buffer)
  52.         (if next (setq tagname last-tag)
  53.       (goto-char (point-min))
  54.       (setq last-tag tagname))
  55.  
  56. --- 323,332 -----
  57.     (let (buffer file linebeg startpos startline traditional-tags-table-copy)
  58.       (save-excursion
  59.         (visit-tags-table-buffer)
  60. + 
  61. +       ;; We need a local copy for when we're out of the tags buffer. 
  62. +       (setq traditional-tags-table-copy traditional-tags-table)
  63. + 
  64.         (if next (setq tagname last-tag)
  65.       (goto-char (point-min))
  66.       (setq last-tag tagname))
  67. ***************
  68. *** 367,373
  69.         (setq tags-file-name tags-file))
  70.       (widen)
  71.       (push-mark)
  72. !     (let ((offset (if traditional-tags-table 1000 20))
  73.         found
  74.         (pat (concat (if traditional-tags-table "^" "^[ \t]*")
  75.                  (regexp-quote linebeg))))
  76.  
  77. --- 371,377 -----
  78.         (setq tags-file-name tags-file))
  79.       (widen)
  80.       (push-mark)
  81. !     (let ((offset (if traditional-tags-table-copy 1000 20))
  82.         found
  83.         (pat (concat (if traditional-tags-table-copy "^" "^[ \t]*")
  84.                  (regexp-quote linebeg))))
  85. ***************
  86. *** 369,375
  87.       (push-mark)
  88.       (let ((offset (if traditional-tags-table 1000 20))
  89.         found
  90. !       (pat (concat (if traditional-tags-table "^" "^[ \t]*")
  91.                  (regexp-quote linebeg))))
  92.         (or traditional-tags-table
  93.         (setq startpos (if (null startline)
  94.  
  95. --- 373,379 -----
  96.       (push-mark)
  97.       (let ((offset (if traditional-tags-table-copy 1000 20))
  98.         found
  99. !       (pat (concat (if traditional-tags-table-copy "^" "^[ \t]*")
  100.                  (regexp-quote linebeg))))
  101.         (or traditional-tags-table-copy
  102.         (setq startpos (if (null startline)
  103. ***************
  104. *** 371,377
  105.         found
  106.         (pat (concat (if traditional-tags-table "^" "^[ \t]*")
  107.                  (regexp-quote linebeg))))
  108. !       (or traditional-tags-table
  109.         (setq startpos (if (null startline)
  110.                    (point-min)
  111.                  (goto-char 1)
  112.  
  113. --- 375,381 -----
  114.         found
  115.         (pat (concat (if traditional-tags-table-copy "^" "^[ \t]*")
  116.                  (regexp-quote linebeg))))
  117. !       (or traditional-tags-table-copy
  118.         (setq startpos (if (null startline)
  119.                    (point-min)
  120.                  (goto-char 1)
  121. ***************
  122. *** 385,391
  123.             (re-search-forward pat (+ startpos offset) t))
  124.       (setq offset (* 3 offset)))
  125.         (or found
  126. !       (if traditional-tags-table
  127.             (or (re-search-forward pat nil t)
  128.             (error "%s not found in %s" pat file))
  129.           (re-search-forward pat))))
  130.  
  131. --- 389,395 -----
  132.             (re-search-forward pat (+ startpos offset) t))
  133.       (setq offset (* 3 offset)))
  134.         (or found
  135. !       (if traditional-tags-table-copy
  136.             (or (re-search-forward pat nil t)
  137.             (error "%s not found in %s" pat file))
  138.           (re-search-forward pat))))
  139.  
  140.  
  141. --
  142.  
  143. -- Dave
  144.  
  145.  
  146.