# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 868064161 0
# Node ID ecf30a8391d57b143a8fd8d464ba1d4190e0140b
# Parent  fc78e7f26a640013bfbb078caf76f521aac9270f
(complete-symbol): Accept an argument.
(debug-ignored-errors): Add ^ to "No tags table loaded".
Make the etags.el strings correspond to latest etags.el.

diff -r fc78e7f26a64 -r ecf30a8391d5 lisp/bindings.el
--- a/lisp/bindings.el	Sat Jul 05 00:54:32 1997 +0000
+++ b/lisp/bindings.el	Sat Jul 05 00:56:01 1997 +0000
@@ -197,16 +197,16 @@
 	"^No manpage [0-9]* found$"
 
 	;; etags
-	"^No tags table in use!  Use .* to select one\\.$"
+	"^No tags table in use; use .* to select one$"
 	"^There is no default tag$"
 	"^No previous tag locations$"
 	"^File .* is not a valid tags table$"
 	"^No \\(more \\|\\)tags \\(matching\\|containing\\) "
 	"^Rerun etags: `.*' not found in "
-	"^All files processed\\.$"
-	"^No .* or .* in progress.$"
+	"^All files processed$"
+	"^No .* or .* in progress$"
 	"^File .* not in current tags tables$"
-	"No tags table loaded."
+	"^No tags table loaded"
 	"^Nothing to complete$"
 
 	;; BBDB
@@ -218,7 +218,7 @@
 
 (define-key esc-map "\t" 'complete-symbol)
 
-(defun complete-symbol ()
+(defun complete-symbol (arg)
   "Perform tags completion on the text around point.
 Completes to the set of names listed in the current tags table.
 The string to complete is chosen in the same way as the default