Function: nnoo-parent-function

nnoo-parent-function is a byte-compiled function defined in nnoo.el.gz.

Signature

(nnoo-parent-function BACKEND FUNCTION ARGS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnoo.el.gz
(defun nnoo-parent-function (backend function args)
  (let ((pbackend (nnoo-backend function))
	(nnoo-parent-backend backend))
    (nnoo-change-server pbackend
			(nnoo-current-server backend)
			(cdr (assq pbackend (nnoo-parents backend))))
    (prog1
	(apply function args)
      ;; Copy the changed variables back into the child.
      (let ((vars (cdr (assq pbackend (nnoo-parents backend)))))
	(while vars
	  (set (cadar vars) (symbol-value (caar vars)))
	  (setq vars (cdr vars)))))))