mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

(math-oper-table): Lower precedence of negation for C, TeX, and eqn.

Browse Source
This commit is contained in:
Jay Belanger 2007-10-27 20:25:45 +00:00
parent c8d0074405
commit ca54ae34f4
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/calc/calc-lang.el
View File

@ -84,10 +84,10 @@
(message "`C' language mode")))
(put 'c 'math-oper-table
'( ( "u+" ident -1 1000 )
( "u-" neg -1 1000 )
( "u!" calcFunc-lnot -1 1000 )
'( ( "u!" calcFunc-lnot -1 1000 )
( "~" calcFunc-not -1 1000 )
( "u+" ident -1 197 )
( "u-" neg -1 197 )
( "*" * 190 191 )
( "/" / 190 191 )
( "%" % 190 191 )
@ -328,9 +328,7 @@
"LaTeX language mode with \\func(\\text{var}) and multiline matrices")))))
(put 'tex 'math-oper-table
'( ( "u+" ident -1 1000 )
( "u-" neg -1 1000 )
( "\\hat" calcFunc-hat -1 950 )
'( ( "\\hat" calcFunc-hat -1 950 )
( "\\check" calcFunc-check -1 950 )
( "\\tilde" calcFunc-tilde -1 950 )
( "\\acute" calcFunc-acute -1 950 )
@ -351,6 +349,8 @@
( "!" calcFunc-fact 210 -1 )
( "^" ^ 201 200 )
( "_" calcFunc-subscr 201 200 )
( "u+" ident -1 197 )
( "u-" neg -1 197 )
( "\\times" * 191 190 )
( "*" * 191 190 )
( "2x" * 191 190 )
@ -575,9 +575,7 @@
(message "Eqn language mode")))
(put 'eqn 'math-oper-table
'( ( "u+" ident -1 1000 )
( "u-" neg -1 1000 )
( "prime" (math-parse-eqn-prime) 950 -1 )
'( ( "prime" (math-parse-eqn-prime) 950 -1 )
( "prime" calcFunc-Prime 950 -1 )
( "dot" calcFunc-dot 950 -1 )
( "dotdot" calcFunc-dotdot 950 -1 )
@ -599,6 +597,8 @@
( "right ceil" closing 0 -1 )
( "+-" sdev 300 300 )
( "!" calcFunc-fact 210 -1 )
( "u+" ident -1 197 )
( "u-" neg -1 197 )
( "times" * 191 190 )
( "*" * 191 190 )
( "2x" * 191 190 )