Mercurial > emacs

changeset 53867:ee106e4fa2d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calc-get-operator): Remove extra format string argument.
author Andreas Schwab <schwab@suse.de>
date Sun, 08 Feb 2004 22:39:28 +0000
parents eccc0649ce27
children 58be271f8d96
files lisp/calc/calc-map.el
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-map.el	Sun Feb 08 22:38:51 2004 +0000
+++ b/lisp/calc/calc-map.el	Sun Feb 08 22:39:28 2004 +0000
@@ -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)