Mercurial > emacs

changeset 14420:071f9717597f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(visit-tags-table-buffer, tags-loop-scan, complete-tag): Fix error format string.
author Karl Heuer <kwzh@gnu.org>
date Mon, 29 Jan 1996 23:14:52 +0000
parents 1315dc695abe
children 319064f5de2e
files lisp/progmodes/etags.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/etags.el	Mon Jan 29 23:12:01 1996 +0000
+++ b/lisp/progmodes/etags.el	Mon Jan 29 23:14:52 1996 +0000
@@ -423,7 +423,8 @@
   (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 @@
   "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 @@
   (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)