Index: cvs.l
===================================================================
RCS file: /pub/cvs/src/xyzzy/cvs.l,v
retrieving revision 0.1.9.0
diff -u -2 -p -r0.1.9.0 cvs.l
--- cvs.l	9 Jan 2002 17:23:21 -0000	0.1.9.0
+++ cvs.l	22 Dec 2003 08:32:06 -0000
@@ -173,5 +173,5 @@
 			    :incode encoding :outcode encoding
 			    :eol-code (buffer-eol-code))))
-    (set-process-sentinel proc (if (eq sentinel :revert)
+    (set-process-sentinel proc (if (eq sentinel 'revert)
 				   #'revert-work-files-sentinel sentinel))
     (set-process-filter proc (or filter #'insert-filter))
@@ -440,5 +440,5 @@
 	      (delete-buffer log))
 	  (delete-file temp))
-      (and (setq buf (*execute-async* cmd :sentinel :revert))
+      (and (setq buf (*execute-async* cmd :sentinel 'revert))
 	   (interactive-p)
 	   (switch-to-buffer-other-window buf)))))
@@ -533,5 +533,5 @@
     (switch-to-buffer-other-window
      (*execute-async* (if rev (concat cmd (revision-options rev)) cmd) t
-		      :sentinel :revert
+		      :sentinel 'revert
 		      :output (format nil "*CVS:update - ~A" (repository-directory-name))))))
 
@@ -840,6 +840,6 @@
 	 (set-minor-mode-map *mode-map*)
 	 (setq ed:make-backup-files nil)
-	 (add-hook '*after-save-buffer-hook* 'update-modeline)
-	 (add-hook '*after-save-buffer-hook* 'auto-commit)
+	 (add-hook '*after-save-buffer-hook* #'update-modeline)
+	 (add-hook '*after-save-buffer-hook* #'auto-commit)
 	 (setq *revert-work-file-function* ed::revert-buffer-function)
 	 (setq ed::revert-buffer-function #'revert-work-file)
@@ -853,3 +853,11 @@
 (pushnew '(cvs-mode . *mode-line*) ed:*minor-mode-alist* :key #'car)
 
-(add-hook 'ed:*find-file-hooks* 'open-file)
+(add-hook 'ed:*find-file-hooks* #'open-file)
+
+(defun reload (list)
+  (dolist (buffer list)
+    (set-buffer buffer)
+    (open-file)))
+
+(defun reload-all ()
+  (reload (buffer-list)))