                                                ;;file-svn-info
           (next-line 1)))))
 
-(easy-menu-add-item nil '("tools") ["SVN Status" svn-status t] "PCL-CVS")
+(condition-case nil
+    (easy-menu-add-item nil '("tools") ["SVN Status" svn-status t] "PCL-CVS")
+  (error (message "psvn: could not install menu")))
 
 (defvar svn-status-mode-map () "Keymap used in svn-status-mode buffers.")
 (defvar svn-status-mode-property-map ()

          (setq svn-file-mark (string-to-char (car file-svn-info)))
          (setq svn-property-mark (string-to-char (substring (car file-svn-info) 1)))
          (when (eq svn-property-mark 0) (setq svn-property-mark nil))
          (cond ((eq svn-file-mark ??)
                 (setq path (nth 1 file-svn-info)
                       local-rev -1

;; * add support for svn rename, svn delete
;; * Parse the following line correct:
;;  A  +            -       ?          ?    ./psvn.el -- show the + also
;;

;; Overview over the implemented/not (yet) implemented svn sub-commands:
