comparison lisp/progmodes/etags.el @ 1152:d9733ad5643a

*** empty log message ***

1151:3dd95c0296ef

If optional arg is the atom `same', don't look for a new table;
 just select the buffer.
If arg is nil or absent, choose a first buffer from information in
`tags-file-name', `tags-table-list', `tags-table-list-pointer'.
Returns t if it visits a tags table, or nil if there are no more in the list."
  (cond ((eq cont 'same))

	(cont
	 (if (tags-next-table)
	     ;; Skip over nonexistent files.
	     (while (and (let ((file (tags-expand-table-name tags-file-name)))

       (save-excursion
	 (visit-tags-table-buffer)
	 (setq next-file-list (tags-table-files))))
  (or next-file-list
      (save-excursion
	;; When doing (visit-tag-table-buffer t),
	;; the tags table buffer must be current.
	(if (and (visit-tags-table-buffer 'same)
		 (visit-tags-table-buffer t))
	    (setq next-file-list (tags-table-files))
	  (and novisit

1152:d9733ad5643a

If optional arg is the atom `same', don't look for a new table;
 just select the buffer.
If arg is nil or absent, choose a first buffer from information in
`tags-file-name', `tags-table-list', `tags-table-list-pointer'.
Returns t if it visits a tags table, or nil if there are no more in the list."
  (cond ((eq cont 'same)
	 ;; We don't need to look for a setting for tags-file-name,
	 ;; but other than that we should behave just as if passed nil.
	 (setq cont nil))

	(cont
	 (if (tags-next-table)
	     ;; Skip over nonexistent files.
	     (while (and (let ((file (tags-expand-table-name tags-file-name)))

       (save-excursion
	 (visit-tags-table-buffer)
	 (setq next-file-list (tags-table-files))))
  (or next-file-list
      (save-excursion
	;; When doing (visit-tags-table-buffer t),
	;; the tags table buffer must be current.
	(if (and (visit-tags-table-buffer 'same)
		 (visit-tags-table-buffer t))
	    (setq next-file-list (tags-table-files))
	  (and novisit