(calc-get-operator): Remove extra format

string argument.

diff --git a/lisp/calc/calc-map.el b/lisp/calc/calc-map.el
index 07279a677aae8c319c728144256a26ed6c23743b..a6a5777df7ee9811cc262557e2b34568c0293ec1 100644 (file)
--- a/lisp/calc/calc-map.el
+++ b/lisp/calc/calc-map.el
@@ -1,6 +1,6 @@
 ;;; calc-map.el --- higher-order 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>
@@ -700,10 +700,7 @@
                                               (calcFunc-afixp   . 2))))))
                          (oper3 (if (eq (nth 2 oper) 'calcFunc-inner)
                                     (calc-get-operator
-                                     (format "%s%s, inner (add)" msg dir
-                                             (substring
-                                              (symbol-name (nth 2 oper))
-                                              9)))
+                                     (format "%s%s, inner (add)" msg dir))
                                   '(0 0 0)))
                          (args nil)
                          (nargs (if (> (nth 1 oper) 0)