From 48de75ed0a78573a5beb32138608ae3784d0f47b Mon Sep 17 00:00:00 2001 From: cberry Date: Tue, 9 Apr 2013 19:05:17 -0700 Subject: [PATCH] Auto Saving: Uncouple src block from global auto-saving * lisp/org-src.el (org-edit-src-code): Transmit (possibly file local) org-edit-src-auto-save-idle-delay to edit buffer and use it to enable auto saving of the edit buffer. Fixes auto-saving of all src edit buffers. TINYCHANGE --- lisp/org-src.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/org-src.el b/lisp/org-src.el index d294796..5ca08c9 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -278,7 +278,9 @@ the display of windows containing the Org buffer and the code buffer." ,(or (nth 4 info) org-coderef-label-format)) (org-edit-src-beg-marker ,beg) (org-edit-src-end-marker ,end) - (org-edit-src-block-indentation ,block-nindent))) + (org-edit-src-block-indentation ,block-nindent) + (org-edit-src-auto-save-idle-delay + ,org-edit-src-auto-save-idle-delay))) (if (and mark (>= mark beg) (<= mark (1+ end))) (save-excursion (goto-char (min mark end)) (setq markline (org-current-line) @@ -351,7 +353,7 @@ the display of windows containing the Org buffer and the code buffer." (org-src-mode) (set-buffer-modified-p nil) (setq buffer-file-name nil) - (when auto-save-default + (when (< 0 org-edit-src-auto-save-idle-delay) (setq buffer-auto-save-file-name (concat (make-temp-name "org-src-") (format-time-string "-%Y-%d-%m") ".txt"))) @@ -376,8 +378,8 @@ the display of windows containing the Org buffer and the code buffer." (string-match "\*Org Src" (buffer-name b))) (buffer-list)))) (cancel-timer org-edit-src-code-timer) - (setq org-edit-src-code-timer))))))))) - t))) + (setq org-edit-src-code-timer))))))))) + t))) (defun org-edit-src-continue (e) "Continue editing source blocks." ;; Fixme: be more accurate -- 1.7.10.2 (Apple Git-33)