Function: ses-replace-name-in-formula

ses-replace-name-in-formula is a byte-compiled function defined in ses.el.gz.

Signature

(ses-replace-name-in-formula FORMULA OLD-NAME NEW-NAME)

Source Code

;; Defined in /usr/src/emacs/lisp/ses.el.gz
(defun ses-replace-name-in-formula (formula old-name new-name)
  (let ((new-formula formula))
    (cond
     ((eq (car-safe formula) 'quote))
     ((symbolp formula)
      (if (eq formula old-name)
          (setq new-formula new-name)))
     ((consp formula)
      (while formula
	(let ((elt (car-safe formula)))
	  (cond
	   ((consp elt)
	    (setcar formula (ses-replace-name-in-formula elt old-name new-name)))
	   ((and (symbolp elt)
		 (eq (car-safe formula) old-name))
	    (setcar formula new-name))))
	(setq formula (cdr formula)))))
  new-formula))