From 887484c1402e0411486f068de9a183f46acd7ca1 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 16 Nov 2009 00:11:51 +0000 Subject: [PATCH] (calc-b-prefix-help): Add help for `calc-symclip'. --- lisp/ChangeLog | 32 ++++++++++++++++++++++++++++++++ lisp/calc/calc-help.el | 2 +- 2 files changed, 33 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6dac08e6c56..e8b4dbea089 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,35 @@ +2009-11-16 Jay Belanger + + * calc/calc.el (math-2-word-size, math-half-2-word-size) + (calc-complement-signed-mode): New variables. + (calc-set-mode-line): Add indicator for twos-complements. + (math-format-number): Format twos-complement notation. + + * calc/calc-bin.el (calc-word-size): Reset the variables + `math-2-word-size' and `math-half-2-word-size'. + (math-format-complement-signed, math-symclip, calcFunc-symclip) + (calc-symclip): New functions. + + * calc/calc-aent.el (math-read-token): Read complement signed numbers. + + * calc/calc-embed.el (calc-embedded-mode-vars): Add + `calc-complement-signed-mode' to the list of modes. + + * calc/calc-map.el (calc-get-operator): Add `calc-symclip'. + (calc-b-oper-keys): Add `calc-symclip' to list. + + * calc/calc-ext.el (math-read-number-fancy): Read complement + signed numbers. + (calc-init-extensions): Add binding for `calc-symclip'. + Add autoload for `calcFunc-symclip' and `calc-symclip'. + + * calc/calc-menu.el (calc-arithmetic-menu): Add item for + `calc-symclip'. + (calc-modes-menu): Add item for twos complement mode. + + * calc/calc-help.el (calc-b-prefix-help): Add help for + `calc-symclip'. + 2009-11-15 Chong Yidong * register.el (jump-to-register, insert-register): Handle Semantic diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el index 78f45755d93..50a7140ad21 100644 --- a/lisp/calc/calc-help.el +++ b/lisp/calc/calc-help.el @@ -575,7 +575,7 @@ C-w Describe how there is no warranty for Calc." (defun calc-b-prefix-help () (interactive) (calc-do-prefix-help - '("And, Or, Xor, Diff, Not; Wordsize, Clip" + '("And, Or, Xor, Diff, Not; Wordsize, Clip, Symclip" "Lshift, Rshift, roTate; SHIFT + signed Lshift, Rshift" "SHIFT + business: Pv, Npv, Fv, pMt, #pmts, raTe, Irr" "SHIFT + business: Sln, sYd, Ddb; %ch") -- 2.39.5