[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:02175] bugfix mhc-cvs/modify



予定を削除するときにset-file-modesがエラーになるので
以下のような修正でどうでしょうか?

Index: mhc-cvs.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-cvs.el,v
retrieving revision 1.17
diff -u -F^(def -F^[_a-zA-Z] -r1.17 mhc-cvs.el
--- mhc-cvs.el	5 Oct 2005 05:26:57 -0000	1.17
+++ mhc-cvs.el	2 Nov 2005 10:40:29 -0000
@@ -294,7 +294,9 @@ (defun mhc-cvs/modify (filename &optiona
       (prog1 (= 0 (mhc-cvs/backend
 		   (list "commit" "-m" ""
 			 (mhc-cvs/shrink-file-name filename))))
-	(set-file-modes filename (logior ?\200 (file-modes filename))))))
+        (let ((modes (file-modes filename)))
+          (when modes
+            (set-file-modes filename (logior ?\200 modes)))))))
 
 
 ;;; CVS Backend Function

--
KOIE Hidetaka <hide@xxxxxxxx>