Mercurial > emacs

changeset 53868:58be271f8d96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-convert-time-zones): Fix format string.
author Andreas Schwab <schwab@suse.de>
date Sun, 08 Feb 2004 22:39:49 +0000
parents ee106e4fa2d8
children f0e8bbd3dc50
files lisp/calc/calc-forms.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-forms.el	Sun Feb 08 22:39:28 2004 +0000
+++ b/lisp/calc/calc-forms.el	Sun Feb 08 22:39:49 2004 +0000
@@ -1,6 +1,6 @@
 ;;; calc-forms.el --- data format conversion functions for Calc
 
-;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2004 Free Software Foundation, Inc.
 
 ;; Author: David Gillespie <daveg@synaptics.com>
 ;; Maintainers: D. Goel <deego@gnufans.org>
@@ -212,11 +212,11 @@
 					", to zone: "))))
      (if (stringp old) (setq old (math-read-expr old)))
      (if (eq (car-safe old) 'error)
-	 (error "Error in expression: " (nth 1 old)))
+	 (error "Error in expression: %S" (nth 1 old)))
      (if (equal new "") (setq new "local"))
      (if (stringp new) (setq new (math-read-expr new)))
      (if (eq (car-safe new) 'error)
-	 (error "Error in expression: " (nth 1 new)))
+	 (error "Error in expression: %S" (nth 1 new)))
      (calc-enter-result 1 "tzcv" (list 'calcFunc-tzconv
 				       (calc-top-n 1) old new)))))