emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] bisected


From: Nicolas Richard
Subject: Re: [O] bisected
Date: Thu, 30 Apr 2015 13:46:55 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (gnu/linux)

Gregor Zattler <address@hidden> writes:
> Sorry, no:

>From Bastien's comment, I wonder : does the following patch helps ?

--- /dev/fd/63  2015-04-30 13:44:20.900676564 +0200
+++ /tmp/org-src.el     2015-04-30 13:43:50.924673810 +0200
@@ -539,35 +539,36 @@
 - When formatting a source code snippet for export with htmlize.
 There is a mode hook, and keybindings for `org-edit-src-exit' and
 `org-edit-src-save'"
-  (when org-edit-src-persistent-message
-    (org-set-local
-     'header-line-format
-     (substitute-command-keys
-      (if org-src--allow-write-back
-         "Edit, then exit with \\[org-edit-src-exit] or abort with \
+  (when org-src-mode
+    (when org-edit-src-persistent-message
+      (org-set-local
+       'header-line-format
+       (substitute-command-keys
+        (if org-src--allow-write-back
+            "Edit, then exit with \\[org-edit-src-exit] or abort with \
 \\[org-edit-src-abort]"
-       "Exit with \\[org-edit-src-exit] or abort with \
+          "Exit with \\[org-edit-src-exit] or abort with \
 \\[org-edit-src-abort]"))))
-  ;; Possibly activate various auto-save features (for the edit buffer
-  ;; or the source buffer).
-  (when org-edit-src-turn-on-auto-save
-    (setq buffer-auto-save-file-name
-         (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))
-    (setq org-src--auto-save-timer
-         (run-with-idle-timer
-          org-edit-src-auto-save-idle-delay t
-          (lambda ()
-            (let (edit-flag)
-              (dolist (b (buffer-list))
-                (when (org-src-edit-buffer-p)
-                  (unless edit-flag (setq edit-flag t))
-                  (when (buffer-modified-p) (org-edit-src-save))))
-              (unless edit-flag
-                (cancel-timer org-src--auto-save-timer)
-                (setq org-src--auto-save-timer nil))))))))
+    ;; Possibly activate various auto-save features (for the edit buffer
+    ;; or the source buffer).
+    (when org-edit-src-turn-on-auto-save
+      (setq buffer-auto-save-file-name
+            (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))
+      (setq org-src--auto-save-timer
+            (run-with-idle-timer
+             org-edit-src-auto-save-idle-delay t
+             (lambda ()
+               (let (edit-flag)
+                 (dolist (b (buffer-list))
+                   (when (org-src-edit-buffer-p)
+                     (unless edit-flag (setq edit-flag t))
+                     (when (buffer-modified-p) (org-edit-src-save))))
+                 (unless edit-flag
+                   (cancel-timer org-src--auto-save-timer)
+                   (setq org-src--auto-save-timer nil)))))))))
 
 (defun org-src-mode-configure-edit-buffer ()
   (when (org-bound-and-true-p org-src--from-org-mode)

-- 
Nicolas.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]