From: Richard M. Stallman Date: Sat, 5 Jul 1997 00:54:32 +0000 (+0000) Subject: (next-file, tags-loop-scan): Fix error message. X-Git-Tag: emacs-20.1~1323 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4fa15f59e2434fe7956a19339a7d75c953e92313;p=emacs.git (next-file, tags-loop-scan): Fix error message. (visit-tags-table-buffer, complete-tag): Likewise. --- diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 47405d43df7..8b0cca71e35 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -420,8 +420,8 @@ Returns t if it visits a tags table, or nil if there are no more in the list." (or tags-file-name (error "%s" (substitute-command-keys - (concat "No tags table in use! " - "Use \\[visit-tags-table] to select one."))))) + (concat "No tags table in use; " + "use \\[visit-tags-table] to select one"))))) ((eq t cont) ;; Find the next table. @@ -1302,7 +1302,7 @@ if the file was newly read in, the value is the filename." (and novisit (get-buffer " *next-file*") (kill-buffer " *next-file*")) - (error "All files processed.")) + (error "All files processed")) (let* ((next (car next-file-list)) (new (not (get-file-buffer next)))) ;; Advance the list before trying to find the file. @@ -1324,7 +1324,7 @@ if the file was newly read in, the value is the filename." (defvar tags-loop-scan '(error "%s" (substitute-command-keys - "No \\[tags-search] or \\[tags-query-replace] in progress.")) + "No \\[tags-search] or \\[tags-query-replace] in progress")) "Form for `tags-loop-continue' to eval to scan one file. If it returns non-nil, this file needs processing by evalling \`tags-loop-operate'. Otherwise, move on to the next file.") @@ -1573,7 +1573,7 @@ for \\[find-tag] (which see)." tags-file-name (error "%s" (substitute-command-keys - "No tags table loaded. Try \\[visit-tags-table]."))) + "No tags table loaded; try \\[visit-tags-table]"))) (let ((pattern (funcall (or find-tag-default-function (get major-mode 'find-tag-default-function) 'find-tag-default)))