Selaa lähdekoodia

org-src: Fix auto-saving of remote editing buffers

* lisp/org-src.el (org-src--auto-save-timer): No longer buffer-local.
(org-src-mode): Tiny refactoring so as to keep code under 80 columns.

Reported-by: Andreas Fuchs <asf@boinkor.net>
http://lists.gnu.org/archive/html/emacs-orgmode/2018-07/msg00002.html
Nicolas Goaziou 6 vuotta sitten
vanhempi
commit
3f601e218d
1 muutettua tiedostoa jossa 5 lisäystä ja 4 poistoa
  1. 5 4
      lisp/org-src.el

+ 5 - 4
lisp/org-src.el

@@ -240,12 +240,12 @@ issued in the language major mode buffer."
 
 ;;; Internal functions and variables
 
+(defvar org-src--auto-save-timer nil
+  "Idle Timer auto-saving remote editing buffers.")
+
 (defvar-local org-src--allow-write-back t)
 (put 'org-src--allow-write-back 'permanent-local t)
 
-(defvar-local org-src--auto-save-timer nil)
-(put 'org-src--auto-save-timer 'permanent-local t)
-
 (defvar-local org-src--babel-info nil)
 (put 'org-src--babel-info 'permanent-local t)
 
@@ -681,7 +681,8 @@ See also `org-src-mode-hook'."
 	  (concat (make-temp-name "org-src-")
 		  (format-time-string "-%Y-%d-%m")
 		  ".txt")))
-  (unless (or org-src--auto-save-timer (zerop org-edit-src-auto-save-idle-delay))
+  (unless (or org-src--auto-save-timer
+	      (= 0 org-edit-src-auto-save-idle-delay))
     (setq org-src--auto-save-timer
 	  (run-with-idle-timer
 	   org-edit-src-auto-save-idle-delay t