# 
# patch "contrib/monotone.el"
#  from [08e72f202432b76fa9e79ee8367ea6f602a3de5e]
#    to [b6f5c916723e3ee67d23e9bbdd0c03796f25cc55]
# 
--- contrib/monotone.el
+++ contrib/monotone.el
@@ -450,7 +450,7 @@
     (error "You have a monotone process running"))
   ;; flush buffers
   (save-some-buffers)
-  ;; 
+  ;;
   (let ((buf (get-buffer-create monotone-commit-buffer))
         (monotone-MT-top (monotone-find-MT-top)))
     ;; found MT?
@@ -596,7 +596,7 @@
    ((eq prefix 'tree)
     ;; MONOTONE BUG: when using "." the command must be run in the dir
     ;; all other commands are run in MT-top
-    ;; FIXME: cd to the correct place in the tree 
+    ;; FIXME: cd to the correct place in the tree
     (monotone-cmd (append cmds (list "."))))
    ((eq prefix 'file)
     (let ((name (buffer-file-name buf)))
@@ -640,7 +640,7 @@
         (name (buffer-file-name)))
     (monotone-cmd-buf what '("diff"))
     (diff-mode)
-    (rename-buffer 
+    (rename-buffer
      (format "*monotone diff %s*"
              (case what
                ('file (monotone-extract-MT-path name))