diff lisp/calc/calc-help.el @ 112453:06719a229a46 default tip

* calc/calc.el (calc-default-power-reference-level) (calc-default-field-reference-level): New variables. * calc/calc-units.el (math-standard-units): Add dB and Np. (math-logunits): New variable. (math-extract-logunits, math-logcombine, calcFunc-luplus) (calcFunc-luminus, calc-luplus, calc-luminus, math-logunit-level) (calcFunc-fieldlevel, calcFunc-powerlevel, calc-level): New functions. (math-find-base-units-rec): Add entry for ln(10). * calc/calc-help.el (calc-u-prefix-help): Add logarithmic help. (calc-ul-prefix-help): New function. * calc/calc-ext.el (calc-init-extensions): Autoload new units functions. Add keybindings for new units functions.

--- a/lisp/calc/calc-help.el	Sun Jan 23 20:55:10 2011 -0800
+++ b/lisp/calc/calc-help.el	Sun Jan 23 23:08:04 2011 -0600
@@ -663,12 +663,19 @@
   (calc-do-prefix-help
    '("Simplify, Convert, Temperature-convert, Base-units"
      "Autorange; Remove, eXtract; Explain; View-table; 0-9"
-     "Define, Undefine, Get-defn, Permanent"
+     "Define, Undefine, Get-defn, Permanent, Logarithmic"
      "SHIFT + View-table-other-window"
      "SHIFT + stat: Mean, G-mean, Std-dev, Covar, maX, miN"
      "SHIFT + stat: + (sum), - (asum), * (prod), # (count)")
    "units/stat" ?u))
 
+(defun calc-ul-prefix-help ()
+  (interactive)
+  (if (eq this-command last-command)
+      (message "ul-")
+    (message "logarithmic-units: + (logarithmic), - (logarithmic), Level: ul-"))
+  (push ?l unread-command-events)
+  (push ?u unread-command-events))
 
 (defun calc-v-prefix-help ()
   (interactive)