[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.
- [O] "not in sub-editing buffer", Detlef Steuer, 2015/04/30
- [O] bisected (was: )Re: "not in sub-editing buffer", Gregor Zattler, 2015/04/30
- Re: [O] bisected, Bastien, 2015/04/30
- Re: [O] bisected, Nicolas Richard, 2015/04/30
- [O] wrong test, fix works, sorry (was: Re: bisected), Gregor Zattler, 2015/04/30
- [O] now it get's ridiculous: bug is still there (was: Re: wrong test, fix works, sorry (was: Re: bisected)), Gregor Zattler, 2015/04/30
Re: [O] "not in sub-editing buffer", Bastien Guerry, 2015/04/30