From: Deepak Goel <deego@gnufans.org>
Date: Thu, 6 Dec 2007 18:22:45 +0000 (+0000)
Subject: Fix buggy calls to `error' in the net/ directory.
X-Git-Tag: emacs-pretest-23.0.90~9044
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e9e4d61914ede6f19c75d1d6962c2977a1be213b;p=emacs.git

Fix buggy calls to `error' in the net/ directory.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3c3c5b8aa45..239a7b08af1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2007-12-06  D. Goel  <deego3@gmail.com>
 
+	* net/trampver.el (x): Ditto.
+
 	* mail/uce.el (uce-reply-to-uce): Ditto.
 
 	* mail/rmailout.el (rmail-output): Ditto.
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el
index 58ae73d8cd3..0639210a1be 100644
--- a/lisp/net/trampver.el
+++ b/lisp/net/trampver.el
@@ -38,7 +38,7 @@
 
 ;; Check for (X)Emacs version.
 (let ((x (if (or (< emacs-major-version 21)	(and (featurep 'xemacs)	     (< emacs-minor-version 4)))    (format "Tramp 2.1.12-pre is not fit for %s"	    (when (string-match "^.*$" (emacs-version))	      (match-string 0 (emacs-version))))    "ok")))
-  (unless (string-match "\\`ok\\'" x) (error x)))
+  (unless (string-match "\\`ok\\'" x) (error "%s" x)))
 
 (provide 'trampver)