2000-11-04 09:11:44 ShengHuo ZHU <zsh@cs.rochester.edu>

	* nnoo.el (nnoo-set): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6c4759..59d33af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-11-04 09:11:44  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnoo.el (nnoo-set): New function.
+
 2000-11-04  ShengHuo Zhu  <zsh@cs.rochester.edu>
 
        * gpg.el, gpg-ring.el: Moved to contrib directory.

diff --git a/lisp/nnoo.el b/lisp/nnoo.el
index 21b17c3..fd07a5f 100644 (file)
--- a/lisp/nnoo.el
+++ b/lisp/nnoo.el
@@ -302,6 +302,20 @@ All functions will return nil and report an error."
                   (&rest args)
                 (nnheader-report ',backend ,(format "%s-%s not implemented"
                                                     backend function))))))))
+
+(defun nnoo-set (server &rest args)
+  (let ((parents (nnoo-parents (car server)))
+       (nnoo-parent-backend (car server)))
+    (while parents
+      (nnoo-change-server (caar parents)
+                         (cadr server)
+                         (cdar parents))
+      (pop parents)))
+  (nnoo-change-server (car server)
+                     (cadr server) (cddr server))
+  (while args
+    (set (pop args) (pop args))))
+
 (provide 'nnoo)
 
 ;;; nnoo.el ends here.