changeset 44509:92316652b440

(etags-verify-tags-table, etags-snarf-tag, etags-list-tags) (etags-tags-apropos, select-tags-table): Don't assume point-min == 1.

--- a/lisp/progmodes/etags.el	Fri Apr 12 02:56:29 2002 +0000
+++ b/lisp/progmodes/etags.el	Fri Apr 12 03:03:26 2002 +0000
@@ -1210,7 +1210,7 @@
 ;; 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))
+  (eq (char-after (point-min)) ?\f))
 
 (defun etags-file-of-tag ()
   (save-excursion
@@ -1254,7 +1254,7 @@
 	;; the beginning of the file.
 	(setq tag-text t
 	      line nil
-	      startpos 1)
+	      startpos (point-min))
 
       ;; Find the end of the tag and record the whole tag text.
       (search-forward "\177")
@@ -1336,7 +1336,7 @@
     (beginning-of-line)))
 
 (defun etags-list-tags (file)
-  (goto-char 1)
+  (goto-char (point-min))
   (when (search-forward (concat "\f\n" file ",") nil t)
     (forward-line 1)
     (while (not (or (eobp) (looking-at "\f")))
@@ -1401,7 +1401,7 @@
     (princ "Tags in file `")
     (tags-with-face 'highlight (princ buffer-file-name))
     (princ "':\n\n"))
-  (goto-char 1)
+  (goto-char (point-min))
   (while (re-search-forward string nil t)
     (beginning-of-line)
     (let ((tag (buffer-substring (point)
@@ -1841,7 +1841,7 @@
       (prin1 (car set-list) (current-buffer)) ;invisible
       (insert "\n")
       (setq set-list (delete (car set-list) set-list)))
-    (goto-char 1)
+    (goto-char (point-min))
     (insert-before-markers
      "Type `t' to select a tags table or set of tags tables:\n\n")
     (if desired-point