diff options
author | Bastien Guerry <bzg@altern.org> | 2013-03-02 15:04:43 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-03-02 15:04:43 +0100 |
commit | 463a2f602f806197754d4caf0ffe5abdf7b17486 (patch) | |
tree | 8ee3e031e2abcf127c6500a968c0eafe7d0c5aba | |
parent | 66d6a6c450f36537d0a091b8eb85a88336e29f54 (diff) | |
download | org-mode-463a2f602f806197754d4caf0ffe5abdf7b17486.tar.gz |
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.
-rw-r--r-- | lisp/org-src.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/org-src.el b/lisp/org-src.el index 0156019..edb97e7 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 |