summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-03-02 15:04:43 +0100
committerBastien Guerry <bzg@altern.org>2013-03-02 15:04:43 +0100
commit463a2f602f806197754d4caf0ffe5abdf7b17486 (patch)
tree8ee3e031e2abcf127c6500a968c0eafe7d0c5aba
parent66d6a6c450f36537d0a091b8eb85a88336e29f54 (diff)
downloadorg-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.el9
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