diff options
| author | Andreas Schwab <schwab@suse.de> | 2004-02-08 22:39:28 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2004-02-08 22:39:28 +0000 |
| commit | ab5a17657222dffc19ee71e7fbdd48320312a253 (patch) | |
| tree | c4b73ac0f4b98fd16c69f261ff581cc22fe2c365 /lisp/calc/calc-map.el | |
| parent | 60a8f9289440a7fa0dcdcb1e3e3ae9af583accd8 (diff) | |
| download | emacs-ab5a17657222dffc19ee71e7fbdd48320312a253.tar.gz | |
(calc-get-operator): Remove extra format
string argument.
Diffstat (limited to 'lisp/calc/calc-map.el')
| -rw-r--r-- | lisp/calc/calc-map.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/calc/calc-map.el b/lisp/calc/calc-map.el index 07279a677aa..a6a5777df7e 100644 --- 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) |