From 463a2f602f806197754d4caf0ffe5abdf7b17486 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 2 Mar 2013 15:04:43 +0100 Subject: [PATCH] org-src.el (org-edit-src-auto-save-idle-delay): Deactivate auto-saving by default * org-src.el (org-edit-src-auto-save-idle-delay): Use a delay of 0 by default (i.e., deactivate auto-saving.) (org-edit-src-code): Set `buffer-auto-save-file-name' for auto-saving with `auto-save-mode'. Thanks to Andreas Leha for suggesting this. --- lisp/org-src.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/org-src.el b/lisp/org-src.el index 015601931..edb97e7e1 100644 --- a/lisp/org-src.el +++ b/lisp/org-src.el @@ -64,7 +64,7 @@ there are kept outside the narrowed region." (const :tag "from `lang' element") (const :tag "from `style' element"))))) -(defcustom org-edit-src-auto-save-idle-delay 5 +(defcustom org-edit-src-auto-save-idle-delay 0 "Delay of idle time before auto-saving src code buffers. When a positive integer N, save after N seconds of idle time. When 0 (the default), don't auto-save." @@ -350,7 +350,10 @@ the display of windows containing the Org buffer and the code buffer." (if org-src-preserve-indentation col (max 0 (- col total-nindent)))) (org-src-mode) (set-buffer-modified-p nil) - (setq buffer-file-name nil) + (setq buffer-file-name nil + buffer-auto-save-file-name + (concat (make-temp-name "org-src-") + (format-time-string "-%Y-%d-%m") ".txt")) (and org-edit-src-persistent-message (org-set-local 'header-line-format msg)) (let ((edit-prep-func (intern (concat "org-babel-edit-prep:" lang)))) @@ -373,7 +376,7 @@ the display of windows containing the Org buffer and the code buffer." (buffer-list)))) (cancel-timer org-edit-src-code-timer) (setq org-edit-src-code-timer))))))))) - t))) + t))) (defun org-edit-src-continue (e) "Continue editing source blocks." ;; Fixme: be more accurate -- 2.11.4.GIT