Selaa lähdekoodia

org.el (org-update-dblock): Use `save-excursion'

* org.el (org-update-dblock): Use `save-excursion' instead of
`save-window-excursion' so that blocks can edit other windows and
change the window layout.

Thanks to Martin for reporting this.
Bastien Guerry 11 vuotta sitten
vanhempi
commit
c3810f71b6
1 muutettua tiedostoa jossa 4 lisäystä ja 2 poistoa
  1. 4 2
      lisp/org.el

+ 4 - 2
lisp/org.el

@@ -11934,8 +11934,9 @@ blocks in the buffer."
 This means to empty the block, parse for parameters and then call
 the correct writing function."
   (interactive)
-  (save-window-excursion
-    (let* ((pos (point))
+  (save-excursion
+    (let* ((win (selected-window))
+	   (pos (point))
 	   (line (org-current-line))
 	   (params (org-prepare-dblock))
 	   (name (plist-get params :name))
@@ -11948,6 +11949,7 @@ the correct writing function."
       (when (and indent (> indent 0))
 	(setq indent (make-string indent ?\ ))
 	(save-excursion
+	  (select-window win)
 	  (org-beginning-of-dblock)
 	  (forward-line 1)
 	  (while (not (looking-at org-dblock-end-re))