Commit 84df9db8 authored by Jay Belanger's avatar Jay Belanger
Browse files

(calc-modes-menu): Add normal and incomplete algebraic modes.

parent 61e21607
2007-11-27 Jay Belanger <jay.p.belanger@gmail.com>
* calc-menu.el (calc-modes-menu): Add normal and incomplete
algebraic modes.
2007-11-26 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/lisp.el (end-of-defun): Restructure so that
......
......@@ -1052,18 +1052,42 @@
:style radio
:selected (eq (car-safe calc-float-format) 'eng)])
(list "Algebraic"
["Normal"
(progn
(require 'calc-mode)
(cond
(calc-incomplete-algebraic-mode
(calc-algebraic-mode t))
(calc-algebraic-mode
(calc-algebraic-mode nil))))
:style radio
:selected (not calc-algebraic-mode)]
["Algebraic mode"
(progn
(require 'calc-mode)
(call-interactively 'calc-algebraic-mode))
(if (or
calc-incomplete-algebraic-mode
(not calc-algebraic-mode))
(calc-algebraic-mode nil)))
:keys "m a"
:style radio
:selected (eq calc-algebraic-mode t)
:selected (and calc-algebraic-mode
(not calc-incomplete-algebraic-mode))
:help "Keys which start numeric entry also start algebraic entry"]
["Incomplete algebraic mode"
(progn
(require 'calc-mode)
(unless calc-incomplete-algebraic-mode
(calc-algebraic-mode t)))
:keys "C-u m a"
:style radio
:selected calc-incomplete-algebraic-mode
:help "Only ( and [ begin algebraic entry"]
["Total algebraic mode"
(progn
(require 'calc-mode)
(call-interactively 'calc-total-algebraic-mode))
(unless (eq calc-algebraic-mode 'total)
(calc-total-algebraic-mode nil)))
:keys "m t"
:style radio
:selected (eq calc-algebraic-mode 'total)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment