From 70837f2c6d27cba704e4992dae78e0b2d95cf412 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 5 Jul 1997 00:56:01 +0000 Subject: [PATCH] (complete-symbol): Accept an argument. (debug-ignored-errors): Add ^ to "No tags table loaded". Make the etags.el strings correspond to latest etags.el. --- lisp/bindings.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/bindings.el b/lisp/bindings.el index 55db199eb70..c8d37596f90 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -197,16 +197,16 @@ is okay. See `mode-line-format'.") "^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 @@ is okay. See `mode-line-format'.") (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 -- 2.39.2