🚀 go-pugleaf

In GNU Emacs 19.25.94.1 (sparc-sun-solaris2.3, X toolkit) of Wed Aug 24 1994 on prometheus

In etags.el, the latest version from Roland, there's this code in
tags-table-extend-computed-list, at line 262:

	    (while tables
	      (setq computed (cons (car tables) computed)
		    table-buffer (get-file-buffer (car tables)))
	      (if table-buffer
		  (save-excursion
		    (set-buffer table-buffer)
		    (if (tags-included-tables)
			;; Insert the included tables into the list we
			;; are processing.
			(setcdr tables (append (tags-included-tables)
					       tables))))
		;; This table is not in core yet.  Insert a placeholder
		;; saying we must read it into core to check for included
		;; tables before searching the next table in the list.
		(setq computed (cons t computed))))


This loses when there is no file buffer for (car tables) because then
table-buffer is nil, so t gets consed onto computed, and the while
loop continues with tables never getting modified.

I think this piece of code wants to be like the code near line 226,
in tags-table-check-computed-list, which does a
  (setq tables (cdr tables))
before continuing the while loop.

Here's a patch:

*** etags.el.~1~	Wed Aug 10 19:33:39 1994
--- etags.el	Wed Aug 24 14:46:10 1994
***************
*** 273,279 ****
  		;; This table is not in core yet.  Insert a placeholder
  		;; saying we must read it into core to check for included
  		;; tables before searching the next table in the list.
! 		(setq computed (cons t computed))))
  	    (setq computed (nreverse computed))
  	    ;; COMPUTED now contains the list of included tables (and
  	    ;; tables included by them, etc.).  Now splice this into the
--- 273,280 ----
  		;; This table is not in core yet.  Insert a placeholder
  		;; saying we must read it into core to check for included
  		;; tables before searching the next table in the list.
! 		(setq computed (cons t computed)))
! 	      (setq tables (cdr tables)))
  	    (setq computed (nreverse computed))
  	    ;; COMPUTED now contains the list of included tables (and
  	    ;; tables included by them, etc.).  Now splice this into the