Mercurial > emacs

comparison lisp/calc/calc-ext.el @ 90188:01137c1fdbe9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-57 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 324-352) - Merge from gnus--rel--5.10 - Update from CVS - etc/emacs-buffer.gdb: Remove RCS keywords * gnus--rel--5.10 (patch 70-79) - Update from CVS - Merge from emacs--cvs-trunk--0
author Miles Bader <miles@gnu.org>
date Mon, 06 Jun 2005 02:39:45 +0000
parents f042e7c0fe20 24bf48d7bb93
children 187d6a1f84f7
comparison
equal deleted inserted replaced
90187:587ea1490d70 90188:01137c1fdbe9
40 (defvar math-comp-tagged nil) 40 (defvar math-comp-tagged nil)
41 (defvar math-comp-sel-hpos nil) 41 (defvar math-comp-sel-hpos nil)
42 (defvar math-comp-sel-vpos nil) 42 (defvar math-comp-sel-vpos nil)
43 (defvar math-comp-sel-cpos nil) 43 (defvar math-comp-sel-cpos nil)
44 (defvar math-compose-hash-args nil) 44 (defvar math-compose-hash-args nil)
45
46 (defvar calc-alg-map)
47 (defvar calc-alg-esc-map)
45 48
46 ;;; The following was made a function so that it could be byte-compiled. 49 ;;; The following was made a function so that it could be byte-compiled.
47 (defun calc-init-extensions () 50 (defun calc-init-extensions ()
48 51
49 (define-key calc-mode-map ":" 'calc-fdiv) 52 (define-key calc-mode-map ":" 'calc-fdiv)
1190 (math-simplify-units val)) 1193 (math-simplify-units val))
1191 (t ; nil, none, num 1194 (t ; nil, none, num
1192 (math-normalize val))))) 1195 (math-normalize val)))))
1193 1196
1194 1197
1195 1198 (defvar calc-help-map nil)
1196 (if (boundp 'calc-help-map) 1199
1200 (if calc-help-map
1197 nil 1201 nil
1198 (setq calc-help-map (make-keymap)) 1202 (setq calc-help-map (make-keymap))
1199 (define-key calc-help-map "b" 'calc-describe-bindings) 1203 (define-key calc-help-map "b" 'calc-describe-bindings)
1200 (define-key calc-help-map "c" 'calc-describe-key-briefly) 1204 (define-key calc-help-map "c" 'calc-describe-key-briefly)
1201 (define-key calc-help-map "f" 'calc-describe-function) 1205 (define-key calc-help-map "f" 'calc-describe-function)