Browse Source

Merge branch 'maint'

Bastien Guerry 6 years ago
parent
commit
99580828e6
1 changed files with 5 additions and 6 deletions
  1. 5 6
      lisp/org-capture.el

+ 5 - 6
lisp/org-capture.el

@@ -985,11 +985,10 @@ it.  When it is a variable, retrieve the value.  Return whatever we get."
 	     (find-file-noselect (expand-file-name file org-directory)))))
 
 (defun org-capture-steal-local-variables (buffer)
-  "Install Org-mode local variables of BUFFER in the capture target buffer.
-Take care of not installing `mark-active', which should be nil."
-  (mapc (lambda (v) (ignore-errors (org-set-local (car v) (cdr v))))
-	(org-remove-if (lambda(e) (eq (car e) 'mark-active))
-		       (buffer-local-variables buffer))))
+  "Install Org-mode local variables of BUFFER."
+  (mapc (lambda (v)
+	  (ignore-errors (org-set-local (car v) (cdr v))))
+	(buffer-local-variables buffer)))
 
 (defun org-capture-place-template (&optional inhibit-wconf-store)
   "Insert the template at the target location, and display the buffer.
@@ -1592,7 +1591,7 @@ The template may still contain \"%?\" for cursor positioning."
       (insert template)
       (goto-char (point-min))
       (org-capture-steal-local-variables buffer)
-      (setq buffer-file-name nil)
+      (setq buffer-file-name nil mark-active nil)
 
       ;; %[] Insert contents of a file.
       (goto-char (point-min))