Mercurial > emacs
comparison lisp/calc/calc-ext.el @ 89909:68c22ea6027c
Sync to HEAD
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 Apr 2004 12:51:06 +0000 |
| parents | 375f2633d815 |
| children | f3ec05478165 |
comparison
equal
deleted
inserted
replaced
| 89908:ee1402f7b568 | 89909:68c22ea6027c |
|---|---|
| 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 |
| 589 (define-key calc-mode-map "v]" 'calc-matrix-brackets) | 589 (define-key calc-mode-map "v]" 'calc-matrix-brackets) |
| 590 (define-key calc-mode-map "v{" 'calc-vector-braces) | 590 (define-key calc-mode-map "v{" 'calc-vector-braces) |
| 591 (define-key calc-mode-map "v}" 'calc-matrix-brackets) | 591 (define-key calc-mode-map "v}" 'calc-matrix-brackets) |
| 592 (define-key calc-mode-map "v(" 'calc-vector-parens) | 592 (define-key calc-mode-map "v(" 'calc-vector-parens) |
| 593 (define-key calc-mode-map "v)" 'calc-matrix-brackets) | 593 (define-key calc-mode-map "v)" 'calc-matrix-brackets) |
| 594 ;; We can't rely on the automatic upper->lower conversion because | |
| 595 ;; in the global map V is explicitly bound, so we need to bind it | |
| 596 ;; explicitly as well :-( --stef | |
| 594 (define-key calc-mode-map "V" (lookup-key calc-mode-map "v")) | 597 (define-key calc-mode-map "V" (lookup-key calc-mode-map "v")) |
| 595 | 598 |
| 596 (define-key calc-mode-map "z" 'nil) | 599 (define-key calc-mode-map "z" 'nil) |
| 597 (define-key calc-mode-map "z?" 'calc-z-prefix-help) | 600 (define-key calc-mode-map "z?" 'calc-z-prefix-help) |
| 598 | 601 |
| 1260 (if key (format "%c-" key) ""))))) | 1263 (if key (format "%c-" key) ""))))) |
| 1261 (setq calc-prefix-help-phase 0) | 1264 (setq calc-prefix-help-phase 0) |
| 1262 (if key | 1265 (if key |
| 1263 (if msgs | 1266 (if msgs |
| 1264 (message "%s: %s: %c-" group (car msgs) key) | 1267 (message "%s: %s: %c-" group (car msgs) key) |
| 1265 (message "%s: (none) %c-" group (car msgs) key)) | 1268 (message "%s: (none) %c-" group key)) |
| 1266 (message "%s: %s" group (car msgs)))) | 1269 (message "%s: %s" group (car msgs)))) |
| 1267 (and key (calc-unread-command key)))) | 1270 (and key (calc-unread-command key)))) |
| 1268 | 1271 |
| 1269 ;;;; Commands. | 1272 ;;;; Commands. |
| 1270 | 1273 |
| 3285 list containing a numeric entry string, or nil. | 3288 list containing a numeric entry string, or nil. |
| 3286 A key may contain additional specs for Inverse, Hyperbolic, and Inv+Hyp.") | 3289 A key may contain additional specs for Inverse, Hyperbolic, and Inv+Hyp.") |
| 3287 | 3290 |
| 3288 (run-hooks 'calc-ext-load-hook) | 3291 (run-hooks 'calc-ext-load-hook) |
| 3289 | 3292 |
| 3293 ;;; arch-tag: 1814ba7f-a390-49dc-9e25-a5adc205e97e | |
| 3290 ;;; calc-ext.el ends here | 3294 ;;; calc-ext.el ends here |