Changeset 6932 for lang/elisp

Timestamp:

02/19/08 19:17:53 (9 months ago)

Author:

kentaro

Message:

lang/elisp/auto-save-buffers-enhanced:

• added git support.
  
• fixed a bug: this package didn't work with SVN and CVS if use-svk-flag is non-nil.
  

Files:

• lang/elisp/auto-save-buffers-enhanced/auto-save-buffers-enhanced.el (modified) (4 diffs)

lang/elisp/auto-save-buffers-enhanced/auto-save-buffers-enhanced.el

@@ -55 +55 @@
 ;; svk, put the code below into your .emacs:
 ;;
-;;   ;; If you're using CVS or Subversion
+;;   ;; If you're using CVS or Subversion or git
 ;;   (require 'auto-save-buffers-enhanced)
 ;;   (auto-save-buffers-enhanced-include-only-checkout-path t)
 ;;   (auto-save-buffers-enhanced t)
 ;;
-;;   ;; If you're using svk
+;;   ;; If you're using also svk
 ;;   (require 'auto-save-buffers-enhanced)
 ;;   (setq auto-save-buffers-enhanced-use-svk-flag t)
@@ -86 +86 @@
 ;;; Change Log:
 
+;; 2008-02-19:
+;;  * added git support.
+;;  * fixed a bug: this package didn't work with SVN and CVS if
+;;    use-svk-flag is non-nil.
+;;
 ;; 2007-12-10:
 ;;  * added a command, `auto-save-buffers-enhanced-reload-svk'.
@@ -142 +147 @@
     (progn
       (setq auto-save-buffers-enhanced-include-regexps nil)
-      (if auto-save-buffers-enhanced-use-svk-flag
-          (auto-save-buffers-enhanced-add-svk-checkout-path-into-include-regexps)
-        (add-hook 'find-file-hook
-                  'auto-save-buffers-enhanced-add-checkout-path-into-include-regexps)))))
+      (when auto-save-buffers-enhanced-use-svk-flag
+        (auto-save-buffers-enhanced-add-svk-checkout-path-into-include-regexps))
+      (add-hook 'find-file-hook
+                'auto-save-buffers-enhanced-add-checkout-path-into-include-regexps))))
 
 ;;;; Command
@@ -216 +221 @@
       (while t
         (if (or (file-exists-p ".svn")
-                (file-exists-p ".cvs"))
+                (file-exists-p ".cvs")
+                (file-exists-p ".git"))
             (setq checkout-path default-directory))
         (cd "..")