tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

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.
This commit is contained in:
Bastien Guerry 2013-03-02 15:04:43 +01:00
parent 66d6a6c450
commit 463a2f602f
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-src.el
View File

@ -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