On Tue, 9 Apr 2013, Bastien wrote:
hi Charles,
can you provide a patch for this?
http://orgmode.org/worg/org-contribute.html#sec-5
Thanks,
--
Bastien
Attached.
HTH,
Chuck
From 48de75ed0a78573a5beb32138608ae3784d0f47b Mon Sep 17 00:00:00 2001
From: cberry <ccbe...@ucsd.edu>
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)
