Changeset 7044 for lang/elisp

Timestamp:

02/22/08 22:34:02 (9 months ago)

Author:

kentaro

Message:

lang/elisp/auto-save-buffers-enhanced: fixed a bug: auto-saving didn't work under unreasonable situation...

Files:

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

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

@@ -86 +86 @@
 ;;; Change Log:
 
+;; 2008-02-22:
+;;  * fixed a bug: auto-saving didn't work under unreasonable situation...
+;;    (Thanks to typester)
+;;
 ;; 2008-02-19:
 ;;  * added git support.
@@ -207 +211 @@
       (toggle-read-only))
     (goto-char (point-min))
-    (while (re-search-forward "^[\t ]+\\(\\(/[^/\n]+\\)+\\):[ ]*$" nil t)
+    (while (re-search-forward "^[\t ]+\\(\\(/[^\n]+\\)+\\):[ ]*$" nil t)
       (when (and (file-exists-p (match-string 1))
                  (not (memq (match-string 1) auto-save-buffers-enhanced-include-regexps)))
@@ -223 +227 @@
                 (file-exists-p ".cvs")
                 (file-exists-p ".git"))
-            (setq checkout-path default-directory))
+            (setq checkout-path (expand-file-name default-directory)))
         (cd "..")
         (when (equal "/" default-directory)