diff options
author | Karl Heuer <kwzh@gnu.org> | 1996-01-29 23:14:52 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1996-01-29 23:14:52 +0000 |
commit | e9c58c7a974f1d8856c7256aaf092246a62b8266 (patch) | |
tree | 474f2a3050583d088b8db2f3319633ff006dfdd0 /lisp | |
parent | eca771ad06a1c01131c2b66c88843eeb32d65824 (diff) | |
download | emacs-e9c58c7a974f1d8856c7256aaf092246a62b8266.tar.gz |
(visit-tags-table-buffer, tags-loop-scan, complete-tag): Fix error format
string.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/progmodes/etags.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index c45d59631ab..64f2e1d7afb 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -423,7 +423,8 @@ Returns t if it visits a tags table, or nil if there are no more in the list." (cond ((eq cont 'same) ;; Use the ambient value of tags-file-name. (or tags-file-name - (error (substitute-command-keys + (error "%s" + (substitute-command-keys (concat "No tags table in use! " "Use \\[visit-tags-table] to select one."))))) @@ -1308,7 +1309,8 @@ if the file was newly read in, the value is the filename." "Form for `tags-loop-continue' to eval to change one file.") (defvar tags-loop-scan - '(error (substitute-command-keys + '(error "%s" + (substitute-command-keys "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 @@ -1555,7 +1557,8 @@ for \\[find-tag] (which see)." (interactive) (or tags-table-list tags-file-name - (error (substitute-command-keys + (error "%s" + (substitute-command-keys "No tags table loaded. Try \\[visit-tags-table]."))) (let ((pattern (funcall (or find-tag-default-function (get major-mode 'find-tag-default-function) |