Mercurial > emacs
comparison lisp/calc/calc-ext.el @ 53869:f0e8bbd3dc50
(calc-do-prefix-help): Remove extra format
string argument.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sun, 08 Feb 2004 22:40:16 +0000 |
| parents | 695cf19ef79e |
| children | 6f766221b410 |
comparison
equal
deleted
inserted
replaced
| 53868:58be271f8d96 | 53869:f0e8bbd3dc50 |
|---|---|
| 1 ;;; calc-ext.el --- various extension functions for Calc | 1 ;;; calc-ext.el --- various extension functions for Calc |
| 2 | 2 |
| 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2004 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: David Gillespie <daveg@synaptics.com> | 5 ;; Author: David Gillespie <daveg@synaptics.com> |
| 6 ;; Maintainers: D. Goel <deego@gnufans.org> | 6 ;; Maintainers: D. Goel <deego@gnufans.org> |
| 7 ;; Colin Walters <walters@debian.org> | 7 ;; Colin Walters <walters@debian.org> |
| 8 | 8 |
| 1260 (if key (format "%c-" key) ""))))) | 1260 (if key (format "%c-" key) ""))))) |
| 1261 (setq calc-prefix-help-phase 0) | 1261 (setq calc-prefix-help-phase 0) |
| 1262 (if key | 1262 (if key |
| 1263 (if msgs | 1263 (if msgs |
| 1264 (message "%s: %s: %c-" group (car msgs) key) | 1264 (message "%s: %s: %c-" group (car msgs) key) |
| 1265 (message "%s: (none) %c-" group (car msgs) key)) | 1265 (message "%s: (none) %c-" group key)) |
| 1266 (message "%s: %s" group (car msgs)))) | 1266 (message "%s: %s" group (car msgs)))) |
| 1267 (and key (calc-unread-command key)))) | 1267 (and key (calc-unread-command key)))) |
| 1268 | 1268 |
| 1269 ;;;; Commands. | 1269 ;;;; Commands. |
| 1270 | 1270 |