[Emacs-diffs] Changes to emacs/lisp/progmodes/etags.el

[Stefan Monnier]

Index: emacs/lisp/progmodes/etags.el
diff -c emacs/lisp/progmodes/etags.el:1.163 emacs/lisp/progmodes/etags.el:1.164
*** emacs/lisp/progmodes/etags.el:1.163 Sun Mar 24 19:40:16 2002
--- emacs/lisp/progmodes/etags.el       Thu Apr 11 23:03:26 2002
***************
*** 1210,1216 ****
  ;; Return non-nil iff the current buffer is a valid etags TAGS file.
  (defun etags-verify-tags-table ()
    ;; Use eq instead of = in case char-after returns nil.
!   (eq (char-after 1) ?\f))
  
  (defun etags-file-of-tag ()
    (save-excursion
--- 1210,1216 ----
  ;; Return non-nil iff the current buffer is a valid etags TAGS file.
  (defun etags-verify-tags-table ()
    ;; Use eq instead of = in case char-after returns nil.
!   (eq (char-after (point-min)) ?\f))
  
  (defun etags-file-of-tag ()
    (save-excursion
***************
*** 1254,1260 ****
        ;; the beginning of the file.
        (setq tag-text t
              line nil
!             startpos 1)
  
        ;; Find the end of the tag and record the whole tag text.
        (search-forward "\177")
--- 1254,1260 ----
        ;; the beginning of the file.
        (setq tag-text t
              line nil
!             startpos (point-min))
  
        ;; Find the end of the tag and record the whole tag text.
        (search-forward "\177")
***************
*** 1336,1342 ****
      (beginning-of-line)))
  
  (defun etags-list-tags (file)
!   (goto-char 1)
    (when (search-forward (concat "\f\n" file ",") nil t)
      (forward-line 1)
      (while (not (or (eobp) (looking-at "\f")))
--- 1336,1342 ----
      (beginning-of-line)))
  
  (defun etags-list-tags (file)
!   (goto-char (point-min))
    (when (search-forward (concat "\f\n" file ",") nil t)
      (forward-line 1)
      (while (not (or (eobp) (looking-at "\f")))
***************
*** 1401,1407 ****
      (princ "Tags in file `")
      (tags-with-face 'highlight (princ buffer-file-name))
      (princ "':\n\n"))
!   (goto-char 1)
    (while (re-search-forward string nil t)
      (beginning-of-line)
      (let ((tag (buffer-substring (point)
--- 1401,1407 ----
      (princ "Tags in file `")
      (tags-with-face 'highlight (princ buffer-file-name))
      (princ "':\n\n"))
!   (goto-char (point-min))
    (while (re-search-forward string nil t)
      (beginning-of-line)
      (let ((tag (buffer-substring (point)
***************
*** 1841,1847 ****
        (prin1 (car set-list) (current-buffer)) ;invisible
        (insert "\n")
        (setq set-list (delete (car set-list) set-list)))
!     (goto-char 1)
      (insert-before-markers
       "Type `t' to select a tags table or set of tags tables:\n\n")
      (if desired-point
--- 1841,1847 ----
        (prin1 (car set-list) (current-buffer)) ;invisible
        (insert "\n")
        (setq set-list (delete (car set-list) set-list)))
!     (goto-char (point-min))
      (insert-before-markers
       "Type `t' to select a tags table or set of tags tables:\n\n")
      (if desired-point