[Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      07/09/26 00:09:32

Index: calc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc.el,v
retrieving revision 1.90
retrieving revision 1.91
diff -u -b -r1.90 -r1.91
--- calc.el     17 Aug 2007 20:18:16 -0000      1.90
+++ calc.el     26 Sep 2007 00:09:32 -0000      1.91
@@ -926,7 +926,7 @@
 (defvar var-gamma '(special-const (math-gamma-const)))
 (defvar var-Modes '(special-const (math-get-modes-vec)))
 
-(mapcar (lambda (v) (or (boundp v) (set v nil)))
+(mapc (lambda (v) (or (boundp v) (set v nil)))
          calc-local-var-list)
 
 (defvar calc-mode-map
@@ -983,16 +983,16 @@
                (if (eq (aref cmap i) 'undefined)
                    'undefined 'calcDigit-nondigit))
          (setq i (1+ i)))))
-    (mapcar (lambda (x) (define-key map (char-to-string x) 'calcDigit-key))
+    (mapc (lambda (x) (define-key map (char-to-string x) 'calcDigit-key))
            "_0123456789.e+-:address@hidden'\"mspM")
-    (mapcar (lambda (x) (define-key map (char-to-string x) 'calcDigit-letter))
+    (mapc (lambda (x) (define-key map (char-to-string x) 'calcDigit-letter))
            "abcdfgijklqrtuvwxyzABCDEFGHIJKLNOPQRSTUVWXYZ")
     (define-key map "'" 'calcDigit-algebraic)
     (define-key map "`" 'calcDigit-edit)
     (define-key map "\C-g" 'abort-recursive-edit)
     map))
 
-(mapcar (lambda (x)
+(mapc (lambda (x)
               (condition-case err
                   (progn
                     (define-key calc-digit-map x 'calcDigit-backspace)
@@ -1017,7 +1017,7 @@
 
 (defvar calc-dispatch-map
   (let ((map (make-keymap)))
-    (mapcar (lambda (x)
+    (mapc (lambda (x)
              (define-key map (char-to-string (car x)) (cdr x))
               (when (string-match "abcdefhijklnopqrstuwxyz"
                                   (char-to-string (car x)))
@@ -1065,7 +1065,7 @@
     map))
 
 ;;;; (Autoloads here)
-(mapcar
+(mapc
  (lambda (x) (dolist (func (cdr x)) (autoload func (car x))))
     '(
 
@@ -1087,7 +1087,7 @@
     math-negp math-posp math-pow math-read-radix-digit math-reject-arg
     math-trunc math-zerop)))
 
-(mapcar
+(mapc
  (lambda (x) (dolist (cmd (cdr x)) (autoload cmd (car x) nil t)))
     '(
 
@@ -1193,12 +1193,12 @@
 \\{calc-mode-map}
 "
   (interactive)
-  (mapcar (function
+  (mapc (function
           (lambda (v) (set-default v (symbol-value v)))) calc-local-var-list)
   (kill-all-local-variables)
   (use-local-map (if (eq calc-algebraic-mode 'total)
                     (progn (require 'calc-ext) calc-alg-map) calc-mode-map))
-  (mapcar (function (lambda (v) (make-local-variable v))) calc-local-var-list)
+  (mapc (function (lambda (v) (make-local-variable v))) calc-local-var-list)
   (make-local-variable 'overlay-arrow-position)
   (make-local-variable 'overlay-arrow-string)
   (add-hook 'change-major-mode-hook 'font-lock-defontify nil t)
@@ -1375,7 +1375,7 @@
         (calc-create-buffer))
       (run-hooks 'calc-end-hook)
       (setq calc-undo-list nil calc-redo-list nil)
-      (mapcar (function (lambda (v) (set-default v (symbol-value v))))
+      (mapc (function (lambda (v) (set-default v (symbol-value v))))
               calc-local-var-list)
       (let ((buf (current-buffer))
             (win (get-buffer-window (current-buffer)))