[Emacs-diffs] emacs/lisp/calc calc-bin.el

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      09/11/16 23:29:20

Modified files:
        lisp/calc      : calc-bin.el 

Log message:
        (math-symclip, calcFunc-symclip, calc-symclip): Remove.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calc/calc-bin.el?cvsroot=emacs&r1=1.26&r2=1.27

Patches:
Index: calc-bin.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-bin.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- calc-bin.el 16 Nov 2009 00:00:22 -0000      1.26
+++ calc-bin.el 16 Nov 2009 23:29:20 -0000      1.27
@@ -850,33 +850,6 @@
      "##"
      num)))
 
-(defun math-symclip (a)
-  "Reduce A to between -2^(w-1) and 2^(w-1)-1."
-  (if (not (Math-num-integerp a))
-      (math-reject-arg a 'integerp)
-    (if (and (Math-lessp a math-half-2-word-size)
-             (let 
-                 ((comparison (math-compare (Math-integer-neg a) 
math-half-2-word-size)))
-               (or (= comparison 0)
-                   (= comparison -1))))
-        a
-      (let ((smalla (math-clip a)))
-        (if (Math-lessp smalla math-half-2-word-size)
-            smalla
-          (math-sub smalla math-2-word-size))))))
-
-(defalias 'calcFunc-symclip 'math-symclip)
-
-(defun calc-symclip (n)
-  "Reduce N to between -2^(w-1) and 2^(w-1)-1."
-  (interactive "P")
-  (calc-slow-wrapper
-   (calc-enter-result 1 "sclp"
-                     (append '(calcFunc-symclip)
-                             (calc-top-list-n 1)
-                             (and n (list (prefix-numeric-value n)))))))
-
-
 (provide 'calc-bin)
 
 ;; arch-tag: f6dba7bc-53b2-41ae-919c-c266ab0ca8b3