# 
# patch "ChangeLog"
#  from [e9dcee3b7793fdab9c0c489ed0cd6d99f8f98c6e]
#    to [c4e04f0259df9ce26703ef50e4cf409981c14a8d]
# 
# patch "contrib/monotone-nav.el"
#  from [6712c56de443fbcc25a988234323dbe50f97268f]
#    to [b537d4d07e81e661b26d153765ff2e236c766367]
# 
--- ChangeLog
+++ ChangeLog
@@ -1,3 +1,9 @@
+2005-04-30  Richard Levitte  <address@hidden>
+
+	* contrib/monotone-nav.el (mnav-rev-make): Move it so it's defined
+	after the definition of the macro mnav-rev-id.  Otherwise, the
+	byte compiler complains there is no setf method for mnav-rev-id.
+
 2005-04-29  Nathaniel Smith  <address@hidden>
 
 	* commands.cc (ls_tags): Sort output.
--- contrib/monotone-nav.el
+++ contrib/monotone-nav.el
@@ -78,12 +78,6 @@
 ;;;;;;;;;;
 
 ;;; the Revision structure
-(defun mnav-rev-make (id)
-  "Create a mnav-rev structure. ID is required."
-  (let ((rec (make-list 11 nil)))
-    (setf (car rec) 'rev)
-    (setf (mnav-rev-id rec) id)
-    rec))
 (defmacro mnav-rev-id (rec)
   "Fetch id from REC."
   `(nth 1 ,rec))
@@ -116,6 +110,12 @@
   "Fetch the current link selected from REC.
 This is not from the DB but used by mnav-pick."
   `(nth 10 ,rec))
+(defun mnav-rev-make (id)
+  "Create a mnav-rev structure. ID is required."
+  (let ((rec (make-list 11 nil)))
+    (setf (car rec) 'rev)
+    (setf (mnav-rev-id rec) id)
+    rec))
 (defun mnav-rev-p (rec)
   "Is this an mnav-rec?"
   (and (listp rec) (equal (car rec) 'rev)))