# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 711317259 0
# Node ID 70a7838a4c8155b22b56d06ef8d00c48e94ddfa1
# Parent  f9874f408ddfcac6dbcc31e251f97c5613108e51
*** empty log message ***

diff -r f9874f408ddf -r 70a7838a4c81 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Thu Jul 16 19:57:57 1992 +0000
+++ b/lisp/progmodes/etags.el	Thu Jul 16 20:07:39 1992 +0000
@@ -84,7 +84,7 @@
 
 (defvar tags-table-format-hooks '(etags-recognize-tags-table
 				  recognize-empty-tags-table
-				  ctags-recognize-tags-table) ;standard? XXX
+				  ctags-recognize-tags-table)
   "List of functions to be called in a tags table buffer to identify
 the type of tags table.  The functions are called in order, with no arguments,
 until one returns non-nil.  The function should make buffer-local bindings
@@ -757,7 +757,7 @@
   (and (zerop (buffer-size))
        (mapcar (function (lambda (sym)
 			   (make-local-variable sym)
-			   (set sym (function (lambda (&rest ignore) nil)))))
+			   (set sym 'ignore)))
 	       '(tags-table-files-function
 		 tags-completion-table-function
 		 find-tag-regexp-search-function